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