sub fib{int(((((1+sqrt(5))/2)**$_[0])/sqrt(5))+.5)}