wordCount xs = show (length (words xs)) ++ "\n"

main = interact wordCount