import Control.Applicative
import Control.Monad
import Data.List

shuffle :: [Int] -> Int -> [Int]
shuffle xs n =
    y : (x ++ z)
    where
        x = take (n - 1) xs
        y = xs !! (n - 1)
        z = drop n xs

main = do
    [n, m] <- map read . words <$> getLine :: IO [Int]
    a <- map read . words <$> getLine :: IO [Int]
    print . head . foldl' shuffle [1 .. n] $ a