Doesn't compile, sorry :(

fudge.scm

@@ -0,0 +1,21 @@
+(import (scheme base)
+        (scheme write)
+        (scheme file)
+        (scheme process-context)
+        (lexer))
+
+(define usage
+  (lambda ()
+    (display "usage: fudge.scm <filename>")
+    (newline)))
+
+(unless (= (length (command-line)) 2)
+  (usage)
+  (exit))
+
+(define input-string
+  (read-string
+    100000000000000
+    (open-input-file (car (cdr (command-line))))))
+
+(display (tokenize input-string))