blob: b11fc9367e596f3c14eb9e7969d3dcb3bc6874ad (
plain)
1
2
3
4
5
6
7
|
fun counter n = return <xml><body>
Current counter: {[n]}<br/>
<a link={counter (n + 1)}>Increment</a><br/>
<a link={counter (n - 1)}>Decrement</a>
</body></xml>
fun main () = counter 0
|