#lang racket
(require racket/runtime-path
         profile)
;; profiling compilation

[read-accept-reader #t]
[read-accept-lang #t]
[current-namespace (make-base-namespace)]


(define-runtime-path fun "fun.rkt")

(define bytecode 
  (profile 
   (compile (read-syntax #f (open-input-file fun)))))

(time
 (eval bytecode))