main = do
  y <- readLn :: IO Int
  putStrLn . show $ 2017 - y