Rewrote game loop using whileM_ and untilM_ from monad-loops