Metroid in Haskell