adamc@1087: fun main () = adamc@1087: s1 <- source ""; adamc@1087: s2 <- source ""; adamc@1087: adamc@1087: let adamc@1087: fun echo s = return s adamc@1087: adamc@1087: fun echoer () = adamc@1087: v1 <- get s1; adamc@1087: v1' <- rpc (echo v1); adamc@1087: set s2 v1' adamc@1087: in adamc@1087: return adamc@1087:
adamc@1087: