// Iterative definition of Fibonacci series
number fibonacci X
{
	set Fib0 1
	set Fib1 1

	same? X 0 
	{
		set Fib Fib0 
	}
	same? X 1 
	{ 
		set Fib Fib1 
	}
	notSmaller? X 1
	{ 
		repeat I 2 X
		{
			set Fib (Fib0+Fib1)
			set Fib0 Fib1
			set Fib1 Fib
			pen Fib
			line 0 Fib 100 Fib
		}
	}
	value Fib
}


// Recursive definition of Fibonaccu series
number fibonacci X 
{
}

number fib X
{
	set Result 1
	notSmaller? X 2
	{
		set Result (<fibonacci (X-1)>+<fibonacci (X-2)>)
	}
	pen Result 
	line 0 Result Result Result
	value Result
}


number fibonacci X
{
	set Result 1
	notSmaller? X 2
	{
		set Result (<fib (X-1)>+<fib (X-2)>)
	}
	pen Result 
	line 0 Result Result Result
	value Result
}