#lang scheme
(define (displayln x) (display x) (newline))
(define (const x) (lambda () x))
(define two-thunk (const 2))
(displayln two-thunk)
(displayln (two-thunk))