let pow n m =
  Big_int.power_int_positive_int n m

let big_add n m = Big_int.add_int_big_int m n

let big_mod n m = Big_int.mod_big_int n (Big_int.big_int_of_int m)

let answer m = Big_int.string_of_big_int
                 (big_mod (big_add (pow 2017 4034) 2017) m)

let () = Scanf.sscanf (read_line ()) "%d"
                      (fun m ->
                       print_string (answer m);
                       print_string "\n")