main :: IO ()
main = readLn >>= print . ((-) 2017)