import Data.List (foldl')
import Control.Applicative ((<$>))

shuffle :: [a] -> Int -> [a]
shuffle xs i = (:) (xs !! (i - 1)) $ take (i - 1) xs ++ drop i xs

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