import Data.List ((\\)) main :: IO () main = getNums >>= print . f where getNums = map read . words <$> getLine :: IO [Int] f a = head $ [1 .. 10] \\ a