(define s (read-line)) (define count 0) (define b "") (let loop((i 8)) (set! b (read-line)) (if (or (char=? (string-ref b 0) #\b) (char=? (string-ref b 0) #\w)) (set! count (+ count 1))) (if (or (char=? (string-ref b 1) #\b) (char=? (string-ref b 1) #\w)) (set! count (+ count 1))) (if (or (char=? (string-ref b 2) #\b) (char=? (string-ref b 2) #\w)) (set! count (+ count 1))) (if (or (char=? (string-ref b 3) #\b) (char=? (string-ref b 3) #\w)) (set! count (+ count 1))) (if (or (char=? (string-ref b 4) #\b) (char=? (string-ref b 4) #\w)) (set! count (+ count 1))) (if (or (char=? (string-ref b 5) #\b) (char=? (string-ref b 5) #\w)) (set! count (+ count 1))) (if (or (char=? (string-ref b 6) #\b) (char=? (string-ref b 6) #\w)) (set! count (+ count 1))) (if (or (char=? (string-ref b 7) #\b) (char=? (string-ref b 7) #\w)) (set! count (+ count 1))) (if (> i 1) (loop (- i 1)))) (if (= (modulo count 2) 0) (display s) (display (if (string=? s "oda") "yukiko" "oda")))