import Control.Monad solve :: Int -> [[Int]] -> Int solve n [] = n solve n (c : cs) = solve (move n c) cs move :: Int -> [Int] -> Int move n (a : ns) = if a == n then head ns else if head ns == n then a else n main :: IO () main = do n <- readLn m <- readLn cup <- replicateM m (map read . words <$> getLine) putStrLn $ show $ solve n cup