handle now (EventKey (Char ch) Up   _ _)             (World (x, y) v anim keys) = World (x, y) v anim (delete ch keys)
handle now (EventKey (Char ch) Up   _ _)             (World (x, y) v anim keys) = World (x, y) v anim (delete ch keys)
handle now (EventKey (Char ch) Up   _ _)             (World (x, y) v anim keys) = World (x, y) v anim (delete ch keys)