RosettaCodeData/Task/Fibonacci-sequence/Oz/fibonacci-sequence-3.oz

fun{Fib N}
   fun{Loop N A B}
      if N == 0 then
    B
      else
    {Loop N-1 A+B A}
      end
   end
in
   {Loop N 1 0}
end