A basic text adventure being written in haskell