#lang scheme

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

(define (const x)
  (lambda () x))

(define two-thunk (const 2))

(displayln two-thunk)
(displayln (two-thunk))