(define root document.body)

(define click-count 0)

(m.mount
 root
 `&(:view
    ,(lambda ()
       (m "main"
	  (vector
	   (m "h1" "LIPS! PWA!")
	   (m "button"
	      `&(:onclick
		 ,(lambda () (set! click-count (+ click-count 1))))
	      (format "~a clicks" click-count)))))))