handle (EventKey (Char 's') Down _ _) (World (x, y)) = World (x, y - 10)
handle (EventKey (Char 's') Down _ _) (World (x, y)) = World (x, y - 10)
handle (EventKey (Char 's') Down _ _) (World (x, y)) = World (x, y - 10)