(use-modules (petri))

(define (main . args)
  (init "Hello world!" 0)
  (let* ([win (make-window)]
         [label (make-label win "Hello world!")])
    (window-show win)
    (event-loop))
  (quit))