(use ezxdisp extras)

(define ezx (ezx-init 100 100 "Hello, ezxdisp"))

(ezx-set-background ezx (make-ezx-color 1 1 1))
(ezx-fillcircle-2d ezx 50 50 25 (make-ezx-color 1 0 0))
(ezx-redraw ezx)

(let loop ()
  (let ((e (receive (ezx-next-event ezx))))
    (pp e)
    (unless (= (car e) ezx:CLOSE) (loop))))

(ezx-quit ezx)