(pragma->sxml m)

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

(define-macro (component view . args)
  (when (= (remainder (length args) 2) 1)
    (error "Component expected even length args."))
  `(object
    :view
    (lambda (vnode) (,@view))
    ,@args))