8 lines
199 B
Text
8 lines
199 B
Text
|Enter a number to obtain Fibonacci sequence: | input nip 1 - var count .
|
|
0 1
|
|
FOR count
|
|
out |, | out . dup rot +
|
|
ENDFOR
|
|
print
|
|
input /# wait until press ENTER #/
|
|
clear /# empties the stack #/
|