% $Id: MathAgentMaker.oz,v 1.1 2008/04/09 22:26:25 leavens Exp leavens $ \insert 'NewPortObject.oz' declare fun {MathAgentMaker} {NewPortObject 0 fun {$ N Msg} case Msg of add(X) then N+X [] sub(X) then N-X [] mult(X) then N*X [] get(Z) then Z=N N end end} end