let addn = fun n -> fun m -> n + m in
let add1 = addn 1 in
print_int (add1 10)
