print atan2( $_->[0], $_->[1] ) 
    for [ 0,-1],[ 0,+1],[-1, 0],[+1, 0],
        [+1,+1],[-1,+1],[-1,-1],[+1,-1];;
3.14159265358979
0
-1.5707963267949
1.5707963267949
0.785398163397448
-0.785398163397448
-2.35619449019234
2.35619449019234