#! /usr/bin/mzscheme
#lang scheme/base

(require (file "libcompiler/compiler.scm"))
(require (file "libcompiler/writer.scm"))

(write-rla-value (compile-function `(lambda argv ,(read))))
(write-char #\Newline)

; vim:set sw=2 expandtab: