(import (qml core)
		coops)

(gui-application-create)
(define engine (make <QQmlApplicationEngine>))
(define loc (new-QUrl "examples/helloworld.qml"))
(load-url engine loc)

(do ((loop #t))
  ((not loop) #t)
  (process-events-timed (qevent-loop-process-event-flag process-all-events:) 50))