adamc@668: fun main () : transaction page = adamc@668: ch <- channel; adamc@668: let adamc@670: fun make () = adamc@668: subscribe ch; adamc@668: send ch "Hello world!" adamc@669: adamc@670: fun echo () = adamc@670: msg <- recv ch; adamc@670: alert(msg); adamc@670: echo () adamc@670: adamc@670: fun onload () = adamc@670: make (); adamc@670: echo () adamc@670: adamc@669: fun haveAnother () = adamc@669: send ch "Here's another." adamc@668: in adamc@668: return adamc@669: