import Control.Applicative ((<$>)) import Data.List ((\\)) main :: IO () main = do bs <- fmap read . words <$> getLine :: IO [Int] print $ head $ [1 .. 10] \\ bs