;; Day 1: Not Quite Lisp

(with-open-file (in "./data/input")
  (do ((char (read-char in nil)
             (read-char in nil)))
      ((null char))
    (print char)))