let adder a = function b -> a+b ;; let addtwo = adder 2 ;; print_int (addtwo 40) ;; (* -> 42 *) let myadd = adder 21 ;; print_int (myadd 21) ;; (* -> 42 *) print_int (adder 18 24) ;;