Fuck Every Word

-- 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