fun remote () = ch <- channel; send ch "Hello World!"; return ch fun remoter () = ch <- channel; send ch "Hello World!"; return }/> fun main () = x <- source ; return ch <- rpc (remote ()); s <- recv ch; alert s}>TEST y <- rpc (remoter ()); set x y}>TESTER