to fibonacci :n
output if equalp :n 1 \
		1 \
		[if equalp :n 2 \
			[sum 1 fibonacci diff :n 1] \
			[sum fibonacci [diff :n 1] fibonacci [diff :n 2]]]
end
to fibonacci :n
output if equalp :n 1 \
		1 \
		[if equalp :n 2 \
			[sum 1 fibonacci diff :n 1] \
			[sum fibonacci [diff :n 1] fibonacci [diff :n 2]]]
end