 integer,dimension(10000)::a
  read*,in
  do i=1,in
     read*,ia
     a(i)=ia
  end do

  ix=0
  do i=1,in
     if (mod(a(i),2)==0) then
        do j=1,1000000000
           a(i)=a(i)/2
           ix=ix+1
           if (mod(a(i),2)/=0) exit
        end do
     end if
  end do

2 print*,ix
end program
