haskell syllable counter