program main
implicit none
integer(8) :: i, j, k
integer(8) :: n
integer(8) , allocatable :: a(:)

read(*,*) n
allocate(a(n))
read(*,*) a
k = 0
do i = 1, n
   j = a(i)
   do while( mod(j,2) == 0 )
      k = k + 1
      j = j/2
   end do
end do
write(*,'(i0)') k

end program main
