let () =
  let n = Scanf.scanf "%d\n" (fun n -> n) in
  let as_ = Array.to_list @@ Array.init n (fun _ -> Scanf.scanf "%d " (fun a -> a)) in
  let n_odd = List.length @@ List.filter (fun n -> n mod 2 = 1) as_ in
  let n_4n2 = List.length @@ List.filter (fun n -> n mod 2 = 0 && n mod 4 <> 0) as_ in
  let n_4n = List.length @@ List.filter (fun n -> n mod 4 = 0) as_ in
  print_endline @@ if n_odd <= n_4n || n_4n2 = 0 && n_odd <= n_4n + 1 then "Yes" else "No"