import Control.Applicative ((<$>)) import Control.Monad import Data.List main :: IO () main = do n <- getl read m <- getl read solve n <$> replicateM m (getl $ map read . words) >>= print solve :: Int -> [[Int]] -> Int solve n = foldl' f n where f c [p, q] | c == p = q | c == q = p | otherwise = c getl :: (String -> a) -> IO a getl f = f <$> getLine