(do((a 0)(b 0(+ b 8)))(())(if(> b 8)(setf x(princ(int-char(rem a 512)))a(ash a -9)b(- b 17))(incf a(ash(read-from-string(format()"#x~A"(read)))b))))