Y f:
	labda y:
		labda:
			f y @y
	call dup

labda fib n:
	if <= n 1:
		1
	else:
		fib - n 1
		fib - n 2
		+
Y
set :fibo

for j range 0 10:
	!print fibo j