1 2 3 4 5 6
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