(* Baseline: closures + curried application *) let make_adder n = fun x -> n + x ;; let add5 = make_adder 5 ;; let add10 = make_adder 10 ;; add5 100 + add10 200