% $Id: FromTo.oz,v 1.1 2006/09/13 21:58:19 leavens Exp leavens $ declare fun {FromTo X Y} if X > Y then nil else X | {FromTo X+1 Y} end end fun {FromToI X Y} fun {FromToIter X Y R} if X > Y then R else {FromToIter X Y-1 (Y|R)} end end in {FromToIter X Y nil} end {Show {FromTo 1 7}} {Show {FromToI 1 9}}