adamc@416: fun counter n = return <xml><body> adamc@416: Current counter: {[n]}<br/> adamc@416: <a link={counter (n + 1)}>Increment</a><br/> adamc@416: <a link={counter (n - 1)}>Decrement</a> adamc@416: </body></xml> adamc@416: adamc@416: fun main () = counter 0