:Fibonacci
dup 0 less
( ["Invalid argument"]
[1 1 rot 2 sub [drop over over add] for]
) if
;
30 Fibonacci pstack print nl
msec print nl
"bertlham " input