open Str

let read_list f =
  split (regexp " +") (read_line ()) |> List.map f

let () =
  let _ = read_line () in
  let ls = read_list int_of_string in
  let (o, e, f) = List.fold_left (fun (o', e', f') x ->
                                  if x mod 4 = 0 then (o', e', f'+1)
                                  else if x mod 2 = 0 then (o', e'+1, f')
                                  else (o'+1, e', f')) (0,0,0) ls in
  (if e = 0 then
     if o - 1 <= f then "Yes" else "No"
   else
     if o <= f then "Yes" else "No") |> print_endline
