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