main = do
	生年Y <- readLn
	print (2017 - 生年Y)