(defmacro with-key (&body body)
  `(let* ((key (get-key)))
     ,@body))

(defmacro with-coordinates ((window x y) &body body)
  `(let* ((old-pos (multiple-value-list (screen:window-cursor-position ,window))))
     (screen:set-window-cursor-position ,window ,x ,y)
     ,@body
     (screen:set-window-cursor-position ,window (car old-pos) (second old-pos))))