A Natural Language Lexer Written in Haskell