(define evaluate-file-all
  (lambda (filename)
    (call-with-input-file (string-append filename ".ll") ll/test)))

(define ll/test
    (lambda (line)
      (if (char-ready? line)
          (if (eof-object? (peek-char line))
              (close-input-port line)
              (ll/do-stuff line)))))

(define ll/do-stuff
  (lambda (line)
    (ll/process-line (read line))
    (ll/test line)))

(define ll/process-line
    (lambda (line)
      (if (eof-object? line)
          '()
          (display (ll/eval line)))
      (newline)))