RosettaCodeData/Task/Fibonacci-sequence/Cat/fibonacci-sequence.cat

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