(do[(u(string->number(fold string-append""(string-split(read-line)" "))16)(ash u -9))]((< u 9))(write-byte(logand u 127)))