adamc@668: fun main () : transaction page = adamc@668: ch <- channel; adamc@668: let adamc@668: fun onload () = adamc@668: subscribe ch; adamc@668: send ch "Hello world!" adamc@668: in adamc@668: return adamc@668: adamc@668: adamc@668: end