fib(n):=(%phi^n-(-%phi)^-n)/sqrt(5);