$ perl -wE '$x = -1; $x/=2 for 1..9999; $,=" "; say $x, atan2($x,-1), atan2(0,-1);'
-0 -3.14159265358979 3.14159265358979