RosettaCodeData/Task/Fibonacci-sequence/Nial/fibonacci-sequence-4.nial

fibr is op n {fork [2>, +, + [fibr (-1 +), fibr (-2 +)]] n};