(use-modules (agar core)
             (agar gui))

(define* (main #:rest args)
  (init-core "Boids Example" 0)
  (init-graphics)
  (let* ([window (window-new &window-main)]
         [label (label-new window 0 "Hello!")])
    (window-show window)
    (event-loop)))