(pragma->sxml m)

(define (mount-root component)
  (m.mount
   document.body
   component))

(define-macro (component view)
  `(object
    :view
    (lambda () (,@view))))