zot-0.0.2: src/SkiToZot.hs

module SkiToZot ( main ) where

main :: IO ()
main = interact skiToZot

skiToZot :: String -> String
skiToZot ""			= ""
skiToZot ( '\n' : rest )	= skiToZot rest
skiToZot ( '`' : rest )		= '1' : skiToZot rest
skiToZot ( 'i' : rest ) 	= "100" ++ skiToZot rest
skiToZot ( 'k' : rest ) 	= "1010100" ++ skiToZot rest
skiToZot ( 's' : rest ) 	= "101010100" ++ skiToZot rest
skiToZot _			= error "skiToZot error"