[Haskell-cafe] words function