(metadata (title "General example"))
(on-update '())
(on-load '((fun () (log "Loaded!"))))
(document
    (let (good "Goooood...")
        (text "↓ Click this button ↓")
        (button :text "yes, this one"
                :callback (fun (btn)
                            (set-label btn good)))
        (button :text "not this one"
                :callback (fun (btn)
                            (set-label btn (+ "not " good))))))