gistfile1.opa

get = Dom.get_text
function apply(f) { function(_) { #counter = Int.to_string(f(String.to_int(get(#counter)))); } }
function incr(x) { x + 1 }
function decr(x) { x - 1 }
function page(){
	<h1 id="counter">0</h1>
	<h1><span onclick={apply(incr)}>+</span> <span onclick={apply(decr)}>-</span></h1>
}
Server.start(Server.http, { title: "counter", ~page })