% $Id: ProdFromTo.oz,v 1.1 2007/10/22 05:16:26 leavens Exp leavens $ declare %% Return the product of the integers from I to J inclusive fun {ProdFromTo I J} if I > J then 1 else I*{ProdFromTo I+1 J} end end