(defvar name)
(setq name (read-line))
(defvar sente)
(defvar gote)
(setq sente name)
(setq gote (if (string= sente "oda" ) "yukiko" "oda"))


(defvar cnt)
(setq cnt 0)
(loop for char = (read-char nil nil) do
 	(if (eq char nil) (return))
	(if (or (eq char #\b) (eq char #\w)) (incf cnt))
)
(format t "~a~%" (if (oddp cnt) gote sente))
;(print sente)
;(print gote)
;(print cnt)