(read-4-chars reader)
(defn read-4-chars [reader] (.toString (StringBuffer. (read-char reader) (read-char reader) (read-char reader) (read-char reader))))