> let add2 = addN 2;;

val add2 : (int -> int)

> add2;;
val it : (int -> int) = <fun:addN@1>
> add2 7;;
val it : int = 9