(define (displayln x)
  (display x)
  (newline))

(define (make-print x)
  (define (print)
    (displayln x))
  print)

(define print-2 (make-print 2))
(define print-4 (make-print 4))

(print-4)
(print-2)