RosettaCodeData/Task/Fibonacci-sequence/Babel/fibonacci-sequence-1.pb

2 lines
51 B
Plaintext

fib { <- 0 1 { dup <- + -> swap } -> times zap } <