Scanf.scanf "%d" (fun n ->
    let num = Array.make 10 0 in
    for i = 1 to n do
        Scanf.scanf " %d %d %d %d %s" (fun a b c d r ->
            let f = if r = "YES" then 1 else -100 in
            num.(a) <- num.(a) + f;
            num.(b) <- num.(b) + f;
            num.(c) <- num.(c) + f;
            num.(d) <- num.(d) + f;
        )
    done;
    let rec loop i mx mv =
        if i = 10 then mv else
        if num.(i) > mx then loop (i + 1) num.(i) i
                        else loop (i + 1) mx mv
    in
    loop 0 (-1) 0 |> Printf.printf "%d\n"
)