% $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 Nums N} case Nums of X|Xs then {Loop Xs N+X} end end in thread _={Loop Strm 0} end {NewPort Strm} end