let stream_fold f stream init = let result = ref init in Stream.iter (fun x -> result := f !result x) stream; !result let count_bw () = let read_bw lno = if lno >= 8 then None else let cnt = read_line () |> Str.split (Str.regexp_string "") |> List.filter (fun s -> s = "b" || s = "w") |> List.length in Some(cnt) in stream_fold ( + ) (Stream.from read_bw) 0 let solve s bw_cnt = let rev_player = function | "oda" -> "yukiko" | _ -> "oda" in if bw_cnt mod 2 = 0 then s else rev_player s let () = let s = read_line () and bw_cnt = count_bw () in solve s bw_cnt |> print_endline