(defun main (&rest argv) (declare (ignorable argv)) (let* ((s (read-line))) (dotimes (i (1- (length s))) (when (and (char= #\a (aref s i)) (char= #\o (aref s (1+ i)))) (setf (aref s i) #\k (aref s (1+ i)) #\i))) (format t "~a~%" s))) (main)