{- Mobile/relocatable computation -}

{- Message recipient -}

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

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



{- np 6-server-int.pi -p 5002 -}