(* Event listeners *) let on_click f = H.EventAttr ("click", f) let on_input f = H.EventAttr ("input", f) let on_submit f = H.EventAttr ("submit", f)