let () = 
	Scanf.scanf "%d" (fun n -> 
    	let whole_array = Array.init n (fun _ -> Scanf.scanf " %d" (fun x -> x))
        in 
        let list = Array.to_list whole_array in 
        let (odd_l, even_l) = 
        let rec make_l ol el l = 
        match l with
        | [] -> (ol, el)
        | x :: [] -> (x :: ol, el)
        | x :: y :: rest -> make_l (x :: ol) (y :: el) rest
        in make_l [] [] list 
        in
       (* let rec majority l *) 
       (*odd_l, even_lそれぞれについて出現回数の一番大きい数と二番目に大きい数を求める*)
       (*一番大きい数が異なれば単純にそれぞれの編集回数の和が答え。等しければ二番目を考慮*)
       
       (*以下無関係なコード*)
        let tes_sum = Array.fold_left (+) 0 whole_array in
         Printf.printf "%d" tes_sum)