(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)