a text based adventure game written in haskell