proc fib n {expr {round((.5 + .5*sqrt(5)) ** $n / sqrt(5))}}