Adventure game in Haskell