let n = Scanf.scanf " %d" (+) 0
let rec f n = if n mod 2 <> 0 then 0 else 1 + f (n / 2)
let a_s = Array.init n @@ fun _ -> Scanf.scanf " %d" f
let z, o, t = Array.fold_left (fun (z, o, t) -> function 0 -> z + 1, o, t | 1 -> z, o + 1, t | _ -> z, o, t + 1) (0, 0, 0) a_s
let g b = print_endline @@ if b then "Yes" else "No"
let _ = g @@ if o > 0 || n = 2 then z <= t else z - 1 <= t