#lang plai/gc2/mutator
(allocator-setup "mark-sweep.rkt" 20)

(define cons-test
  (let ([x 3])
    (lambda () (cons 1 x))))

(define the-cons (cons-test))