(let addN (fun (n)
(fun (x &n)
(+ x n))))
(let add2 (addN 2))
(print (type add2))
(assert (= 7 (add2 5)) "add2 5 is 7")