(define-module (test))
(use-modules (system base compile))

(define prog '(lambda (a b c)
			    (+ a b c)))

(define (f)
  (compile prog)
  (display "done\n"))