RosettaCodeData/Task/Fibonacci-sequence/Standard-ML/fibonacci-sequence-1.ml

fun fib n =
    let
   fun fib' (0,a,b) = a
     | fib' (n,a,b) = fib' (n-1,a+b,a)
    in
   fib' (n,0,1)
    end