(load "lib/mithril.scm")

(define click-count 0)

(mount-root
 (component
  (sxml
   (main
    (h1 "LIPS! PWA!")
    (button (@ (onclick (lambda ()
			  (set! click-count (+ 1 click-count))
			  (print click-count))))
	    ~(format "~a clicks" click-count))))))