main :: IO ()
main = do
    let p = 2017 :: Integer
    let x = p + p ^ (2 * p) :: Integer
    m <- readLn :: IO Integer
    print $ mod x m