handle (EventKey (Char 'w') Down _ _) (World (x, y)) = World (x, y + 10)
handle (EventKey (Char 'w') Down _ _) (World (x, y)) = World (x, y + 10)
handle (EventKey (Char 'w') Down _ _) (World (x, y)) = World (x, y + 10)