use proconio::input;

fn solve() -> i8 {
  input! {
    mut n: u64,
  }
  let mut ans = 1;
  for k in 2..=1000000 {
    if n % (k * k) == 0 {
      ans *= 0;
      break;
    }
    if n % k == 0 {
      ans *= -1;
      n /= k;
    }
  }
  if n > 1 {
    ans *= -1;
  }
  ans
}

fn main() {
  let ans = solve();
  println!("{}", ans);
}