(define s (read-line)) (define count 0) (define b (list)) (define (countc ls c n) (if (pair? ls) (begin (if (char=? (car ls) c) (set! n (+ n 1))) (countc (cdr ls) c n)) n)) (let loop((i 8)) (set! b (string->list (read-line))) (set! count (+ count (countc b #\b 0))) (set! count (+ count (countc b #\w 0))) (if (> i 1) (loop (- i 1)))) (if (= (modulo count 2) 0) (display s) (display (if (string=? s "oda") "yukiko" "oda")))