$fib func

dup 2 < if

return

end

dup 1 - fib swap 2 - fib +

end


0

loop

dup 20 <=

while

dup fib putd

dup 1 +

end


결과

0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765


이제 지역변수 구현이 남았다...