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

fibr2 is fork [2>, +, + [fibr2 (-1 +), fibr2 (-2 +)]];