Forwarding Agent

{Forward L P}: forwards to port P every message appearing on stream L

proc {Forward L P}
   thread
      for M in L do {Send P M} end 
   end
end