(defn game
  [k & [arg]]
  (case k
    :width (graphics! :get-width)
    :height (graphics! :get-height)
    :fps (graphics! :get-frames-per-second)
    :fullscreen? (graphics! :is-fullscreen)
    :touched? (input! :is-touched)
    :x (input! :get-x (or arg 0))
    :y (- (graphics! :get-height) (input! :get-y (or arg 0)))
    :point-x (game :x arg)
    :point-y (game :y arg)
    (u/throw-key-not-found k)))