adam@2064: fun remote () = adam@2064: ch <- channel; adam@2064: send ch "Hello World!"; adam@2064: return ch adam@2064: adam@2064: fun remoter () = adam@2064: ch <- channel; adam@2064: send ch "Hello World!"; adam@2064: return }/> adam@2064: adam@2064: fun main () = adam@2064: x <- source ; adam@2064: return adam@2064: adam@2064: adam@2064:
adam@2064: adam@2064: