(defun m(u k i)(let((c(read-char))(j(mod(1+ i)51)))(princ(or k(= u i)c))(case c(#\T(m i k j))(#\K(m u c j))(t(or(if k(= u i))(m u k j))))))(m 0 nil 1)