1*a1bf3f78SToomas Soome: fib ( n1 -- n2 ) 2*a1bf3f78SToomas Soome dup 1 > if 3*a1bf3f78SToomas Soome dup 4*a1bf3f78SToomas Soome 1- recurse 5*a1bf3f78SToomas Soome swap 2 - recurse 6*a1bf3f78SToomas Soome + 7*a1bf3f78SToomas Soome then ; 8*a1bf3f78SToomas Soome 9*a1bf3f78SToomas Soome 10*a1bf3f78SToomas Soome35 value nfibs 11*a1bf3f78SToomas Soome: fibtest nfibs fib . cr ; 12