( xt from :noname in the previous example )
variable pocket pocket !
: fib ( +n -- n' )
dup 0< abort" Negative numbers don't exist."
[ pocket @ compile, ] ;