let n = stdin.ReadLine () |> int let s = [| for _ in 0..n-1 -> stdin.ReadLine () |> String.length |> ((+)(-2)) |] let count = [|0..Array.max s|] |> Array.map (fun x -> s |> Array.filter ((=)x) |> Array.length) Array.findIndexBack ((=)(Array.max count)) count |> printfn "%d"