
query :: [Int] -> Int
query xs = case filter odd xs of
             [] -> query (map (`div` 2) xs)+1
             _  -> 0

main::IO()
main = do
    _ <- getLine
    s <- map read . words <$> getLine ::IO [Int] 

    print $ query s
