open Batteries
let n = Scanf.scanf "%d" (fun x -> x)
let a = List.init n (fun _ -> Scanf.scanf " %d" (fun x -> x))
let () =
  let four = a |> List.filter (fun x -> x mod 4 = 0) |> List.length in
  let two = a |> List.filter (fun x -> x mod 4 <> 0 && x mod 2 = 0) |> List.length in
  let one = n - four - two in
  let res = if two = 0 then four >= one-1 else four >= one in
  print_endline (if res then "Yes" else "No")