(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))