type Buf = { a:int[]; offset:int } with
    member private this.update (c:char) =
        let idx = (int c) - this.offset
        this.a.[idx] <- this.a.[idx] + 1

    member this.reader (s:string) =
        s
        |> Seq.filter (fun c -> c <> ' ')
        |> Seq.iter (fun c -> this.update c)

    member this.maxvalue =
        this.a
        |> Seq.mapi (fun i v -> (i+1, v))
        |> Seq.sortBy (fun (i, v) -> v)
        |> Seq.last
        |> fun (i, v) -> i

let buf = { a = [| for _ in 1..6 -> 0 |]; offset = int '1' }

stdin.ReadLine () |> ignore
stdin.ReadLine () |> buf.reader |> ignore

buf.maxvalue |> printfn "%d"