1 2 3 4 5 6 7 8 9 10 11 12
let square x = x * x let a = square 3 let () = print_int a let rec factorial x = if x <= 1 then 1 else x * factorial (x - 1) let b = factorial 5 let () = print_int b