Initial checkin of stacker samples
[oota-llvm.git] / projects / Stacker / samples / fibonacci.st
1 #
2 # Fibonacci Algorithm in Stacker.
3 #
4 : print >d CR;
5 : fibonacci RROT DUP2 + print 3 PICK -- ; 
6 : MAIN 0 print 1 print 44 WHILE fibonacci END ;