(load "example.scm")

(let ((event (make-sdl-event))
      (contro (zorph-controller world)))
  (let loop ()
    (sdl-wait-event! event)
    (if (eq? 'done (handle-input-event contro event))
        'done
        (loop))))

(exit 0)