(defun yoba (z)
  (loop :for i :upto (integer-length z) :by 4
        :when (logbitp i z) :do
          (setf #1=(ldb (byte 4 i) z) (logxor #b1100 #1#)))
  z)

(defun main ()
  (loop :for z := (read *standard-input* nil) :while z :do
    (format t "~d (~:*~b) -> ~d (~:*~b)~%" z (yoba z))))

(main)