Simple text adventure generator made with Haskell