{- Mobile/relocatable computation -}

{- Message recipient -}

agent Server = 
(
  new c : ^String
  val s = (this_site)
  val _ = (publish "key" (dynamic [Server s c]))

  run print! "Server str ready."
  c?* msg= print! msg
)



{- np 6-server-str.pi -p 5001 -}