module String = struct include String let fold_left f init str = let n = String.length str - 1 in let rec doit i acc = if i > n then acc else doit (i + 1) (f acc str.[i]) in doit 0 init end let () = let dark = read_line () in let light = if dark = "oda" then "yukiko" else "oda" in let rec doit i s = if i = 8 then s else let l = read_line () in let n = String.fold_left (fun s c -> if c <> '.' then s + 1 else s) 0 l in doit (i + 1) (s + n) in let s = doit 0 0 in print_endline (if s mod 2 = 0 then dark else light)