Fuck Every Word (haskell dumb program)

few_v1.hs

-- Fuck Every Word
-- inspired by https://twitter.com/fuckeveryword 
-- usage: runghc few.hs < some_text_file.txt

fuckAWord a = "Fuck " ++ a ++ "!\n"

fuckEveryWord = concat . map fuckAWord . words

main = interact fuckEveryWord

few_v2.hs

-- Fuck Every Word
-- inspired by https://twitter.com/fuckeveryword 
-- usage: runghc few.hs

fuckAWord a = "Fuck " ++ a ++ "!\n"

fuckEveryWord b = concat $ map fuckAWord $ words b

main = do
    putStrLn "You're words: "
    line <- getLine
    putStrLn "\nReturn:"
    putStrLn $ fuckEveryWord line