(loop for l = (read-line)while l do(format t "~a~%" (coerce (multiple-value-bind (x y)(loop for i from 0 below (length l)if (eq (aref l i) #\Space)return (values (subseq l 0 i)(subseq l (1+ i))))(map 'vector (lambda (x y)(case x(#\0 (case y(#\0 #\1)((#\1 #\2) #\0)))(#\1 (case y(#\0 #\1)(#\1 #\0)(#\2 #\2)))(#\2 (case y((#\0 #\1) #\2)(#\2 #\1)))))x y))'string)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).