-- Pressing the spacebar makes the character jump. All character keys are tracked in the world state.
handle now (EventKey (Char ch) Down _ _)             (World (x, y) v anim keys) = World (x, y) v anim (ch : keys)
handle now (EventKey (Char ch) Down _ _)             (World (x, y) v anim keys) = World (x, y) v anim (ch : keys)
handle now (EventKey (Char ch) Down _ _)             (World (x, y) v anim keys) = World (x, y) v anim (ch : keys)