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

fibm is op n {floor (0 1 pick (reduce ip (n reshape [2 2 reshape 1 1 1 0])))};