% $Id: FibLazyTest.oz,v 1.1 2007/10/14 17:56:08 leavens Exp leavens $ \insert 'FibLazy.oz' declare proc {TestFib2 N I} if I =< N then {Browse '{Fib ' # I # '} = ' # {Fib I}+0} {TestFib2 N (I+10)} else {Browse 'done'} end end proc {TestFib} {TestFib2 1000 0} end {TestFib} {Browse '{Fib 50} = ' # {Fib 50}}