open Num

let () =
  let x = Int(2017) +/ ((Int(2017) */ Int(2017)) **/ Int(2017)) in
  let m = read_line ()
          |> num_of_string
  in
  mod_num x m
  |> string_of_num
  |> print_endline