(defun f(y)(position-if(lambda(a)(oddp(count #\1 a)))y))(setf(elt(elt(set'x(loop while(listen)collect(read-line)))(f x))(f(apply'map'list'list x)))#\1)(mapc'write-line x)