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