main = do
  ns <- fmap (fmap (read :: String -> Int) . words) . lines <$> getContents
  let ts = head $ tail ns
  putStrLn $ show $ splc ts 0


splc :: [Int] -> Int -> Int
splc src acc = if all even src then
                 splc (map (\n -> n `div` 2) src) (acc + 1)
               else
                acc