% $Id: SumFromTo.oz,v 1.1 2006/09/13 21:58:19 leavens Exp leavens $ declare fun {SumFromTo I J} fun {SumFromToIter JnR} J#R=JnR in if I > J then R else {SumFromToIter J-1#R+J} end end in {SumFromToIter J#0} end {Show {SumFromTo 1 3}}