% $Id: SumPortMaker.oz,v 1.1 2007/11/13 22:37:35 leavens Exp leavens $ % See SumAgentMaker.oz for something more useful... declare fun {SumPortMaker} Strm % declaring the input stream fun {Loop X|Xs N} {Loop Xs N+X} end in thread _={Loop Strm 0} end {NewPort Strm} end