A haskell lystem generator