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