(let addN (fun (n)
  (fun (x &n)
    (+ x n))))

(let add2 (addN 2))
(print (type add2))
(assert (= 7 (add2 5)) "add2 5 is 7")