Find file
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (6 sloc) 183 Bytes
main = do cs <- getContents
putStr $ expand cs
expand :: String -> String
expand cs = map translate cs
translate :: Char -> Char
translate c = if c == '\t' then '@' else c