Fuck Every Word
123456789101112
-- Fuck Every Word
-- usage: runghc few.hs
fuckAWord a = "Fuck " ++ a ++ "!\n"
fuckEveryWord a = concat $ map fuckAWord $ words a
main = do
putStrLn "Your words: "
line <- getLine
putStrLn "Return:"
putStrLn $ fuckEveryWord line
Haskell
INFO