use bignum;<>=~/ .* /;$,=$/;print$`?($n,map+($_*$d**.5-$&)/2/$`,0<=>$`,$`<=>0)[0..++($n=($d=$&**2-4*$`*$')<=>0)]:-$&?(1,-$'/$&):-$'?0:-1