(defun main (&rest argv) (declare (ignorable argv)) (let* ((s (read-line)) (n (loop for i below 8 sum (loop for c across (read-line) count (char= c #\.))))) (format t "~a~%" (if (evenp n) s (if (string= s "yukiko") "oda" "yukiko"))))) (main)