(let* ((a (read))
       (lst (loop :repeat a :collect (read)))
       (a1 0)
       (a2 0)
       (a4 0))
  (mapcar (lambda (n)
            (cond ((= 0 (mod n 4)) (incf a4))
                  ((= 0 (mod n 2)) (incf a2))
                  (t (incf a1)))) lst)
  (if (= 0 a2)
      (incf a4)
      nil)
  (format t "~A~A~A" a1 a2 a4)
  (if (<= 0 (- a4 a1))
      (princ "Yes")
      (princ "No")))