Cave Story Written in Haskell