use bigint; sub d2{ $_=pop; /-/?-(1-$_/2):$_/2 } sub bs{ ($l,$r,$v)=@_; ($t*$v>=0?$r:$l)=$x while$x=d2($l+$r),$t=$x**3+$A*$x**2+$B*$x+$C; $x } ($A,$B,$C)=glob<>; $s=sqrt($A**2-3*$B); $p=(-$A-$s)/3; $q=(-$A+$s)/3; print bs(-1e9,$p+1,1),$",$p&&$q&&bs($p+1,$q+1,-1),$",bs($q+1,1e9,1),$/