-- file: ch01/WC.hs
-- From chapter 1, http://book.realworldhaskell.org/read/getting-started.html

main = interact wordCount
    where wordCount input = show (length (lines input)) ++ "\n"
main = interact wordCount
    where wordCount input = show (length (lines input)) ++ "\n"
main = interact wordCount
    where wordCount input = show (length (lines input)) ++ "\n"