: fib ( x -- y )
  dup 1 <=
  [ [ 1 - fib ]
    [ 2 - fib ] bi +
  ] unless ;