(define cons-1
  (lambda () (cons 1 '())))
(cons-1)