[Haskell] Making 'Super Nario Bros.' in Haskell‏