% $Id: HailstoneMax.oz,v 1.2 2008/03/21 21:20:16 leavens Exp leavens $ % AUTHOR: Gary T. Leavens \insert 'Hailstone.oz' declare fun {HailstoneMax N} {FoldL {IterHailstone N} Max 0} end