define fib {
  dup 1 <=
    []
    [dup 1 - fib swap 2 - fib +]
  if
}