#lang racket
(require (only-in “../../desugar.rkt” desugar))
(require (only-in “../../utils.rkt” eval-scheme eval-core))
(define prog (with-input-from-file “testcase.scm” (lambda () (read))))
(with-output-to-file “output”
(lambda ()
(define core-answer (eval-core (desugar prog)))
(print core-answer))
#:exists ‘replace)