;; #!/usr/bin/csi -s
;; (define (main #!optional args)
;;   (include "include.scm")
;;   (include "include2.scm")
;;   (define that "hey")
;;   (foo))

;; (main)

[canonicalized]
(##core#callunit library)

(##core#callunit eval)

(##core#callunit expand)

(##core#undefined)

(##core#undefined)

(##core#undefined)

(set! main
  (##core#lambda
    rest1314
    (let ((args15
            (let ((tmp1619 rest1314))
              (if (scheme#null? tmp1619) '#f (scheme#car tmp1619)))))
      (let ((foo20 (##core#undefined)))
        (let ((t23 (set! foo20 (##core#lambda () (chicken.base#print that)))))
          (let ((that21 (##core#undefined)))
            (let ((t22 (set! that21 '"hey"))) (foo20))))))))

(main)

((chicken.base#implicit-exit-handler))