(defn count2devide [a i] (if (= 0 (mod a 2)) (count2devide (.intValue (/ a 2)) (+ 1 i)) i))
(let [s (java.util.Scanner. System/in)]
  (let [trash (.nextLine s)])
  (println 
    (reduce
      +
      (map 
        (fn [a] (count2devide (Integer/parseInt a) 0))
        (.split (.nextLine s) " ")))))