adam@1538: fun main () : transaction page = adam@1538: s <- source ; adam@1538: s1 <- source ; adam@1538: n <- source 0; adam@1538: return adam@1538: adam@1538: adam@1538: Hi adam@1538: adam@1538: adam@1803: v <- get n; adam@1803: set n (v + 1); adam@1803: set s Whoa!({[v]}) }/> adam@1538: adam@1538: adam@1538: adam@1538: Hi! adam@1538: adam@1538: adam@1803: set s1 Whoa!}/> adam@1538: