(def read-bytes () (let n (int (readline)) (string (map [coerce _ 'char] (n-of n (readb))))))
(def char (x) (coerce x 'char))
(def read-bytes () (let n (int (readline)) (string (map char (n-of n (readb))))))