import Data.List ( sort )
main :: IO ()
main = interact $ show . solve . map read . tail . words

solve :: [Int] -> Int
solve xs = snd $ head $ reverse $ sort $ zip [a, b, c, d, e, f] [1..6]
    where
        a = length $ filter (== 1) xs
        b = length $ filter (== 2) xs
        c = length $ filter (== 3) xs
        d = length $ filter (== 4) xs
        e = length $ filter (== 5) xs
        f = length $ filter (== 6) xs