Port/Stream from Cell

{NewSend ?List ?Send}

proc {NewSend List Send}
   C={NewCell List}
in
   proc {Send Msg}
      Tail
   in
      {Exchange C Msg|Tail Tail}
   end
end