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