module Yuki

open System

let [<Literal>] YEAR = 2017L

let solve m =
    let square = YEAR * YEAR
    let rec f acc =
        function
        | 1 -> (acc * square) % m
        | n -> f ((acc * square) % m) (n - 1)
    (2017L + (f 1L 2017)) % m

let M = int64 <| Console.ReadLine()

solve M
|> Console.WriteLine