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