#!/usr/bin/perl

use Math::Random;

$m = $ARGV[1];
$mu = $ARGV[2];

open(IN, $ARGV[0]);
while(<IN>) {
  ($a,$b) = split;
  push @dists, $b;
}
close(IN);

for $d (@dists) {
  $r = random_normal() + $mu;
  $wp = $r*$d;
  $wo = random_normal();
  $xo = sqrt(1.0-$d*$d);
  if($wp+$wo*$xo < 0) { print "-1\n"; }
  else { print "1\n"; }
}
