|context> => |context: Fibonacci method 1>

fib |0> => |0>
fib |1> => |1>

n-1 |*> #=> arithmetic(|_self>,|->,|1>)
n-2 |*> #=> arithmetic(|_self>,|->,|2>)
fib |*> #=> fib n-1 |_self> + fib n-2 |_self>


|context> => |context: Fibonacci method 2>

fib |0> => |0>
fib |1> => |1>

n-1 |*> #=> arithmetic(|_self>,|->,|1>)
n-2 |*> #=> arithmetic(|_self>,|->,|2>)
fib |*> #=> to-number ( fib n-1 |_self> + fib n-2 |_self> )


|context> => |context: Fibonacci method 3>

fib |0> => |0>
fib |1> => |1>

n-1 |*> #=> arithmetic(|_self>,|->,|1>)
n-2 |*> #=> arithmetic(|_self>,|->,|2>)
fib |*> #=> arithmetic( fib n-1 |_self>, |+>, fib n-2 |_self>)
fib-ratio |*> #=> arithmetic( fib |_self> , |/>, fib n-1 |_self> )


|context> => |context: Fibonacci method 4>

fib |0> => |0>
fib |1> => |1>

n-1 |*> #=> arithmetic(|_self>,|->,|1>)
fib |*> #=> arithmetic( fib n-1 |_self>, |+>, fib n-1 n-1 |_self>)
fib-ratio |*> #=> arithmetic( fib |_self> , |/>, fib n-1 |_self> )


exit sw  -- exit processing of this file

unfinished ...
|context> => |context: algebra Fibonacci>

-- fib |0> => |0>
-- fib |1> => |1>

n-1 |*> #=> algebra(|_self>,|->,1| >)
n-2 |*> #=> algebra(|_self>,|->,2| >)
fib |*> #=> algebra( fib n-1 |_self>, |+>, fib n-2 |_self>)