A simple text summarizer written in Haskell