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