main :: IO ()
main = do
  input <- readLn
  putStrLn . show $ calc input

calc :: Int -> Int
calc m = (iterate calc' a !! 2016 + 2017) `mod` m
  where a = 2017 * 2017 `mod` m
        calc' b = b * a `mod` m