(examples-for k

("returns a constant function"
 (let f (k 1)
   (list (f) (f) (f) (f)))
 (1 1 1 1)))