min-ML interpreter

let rec fact = fun x -> if x < 1 then 1 else x * fact(x - 1);; print (fact 6);;