(define test
  (lambda (filename expected-output)
    (if (eq? (interpret filename) expected-output)
        (string-append "Passed " filename)
        (string-append "Failed " filename
          ", ! Expected output: " (if (number? expected-output) (number->string expected-output) (symbol->string expected-output))
            ", Interpreter output: "  (if (number? (interpret filename)) (number->string (interpret filename)) (symbol->string  (interpret filename)))))))