%%HP: T(1)A(G)F(.);
  x y
   DEG x 0
    IF ==
    THEN y 0
      IF >
      THEN 90
      ELSE y 0
        IF <
        THEN -90
        END
      END
    ELSE y x / ATAN
x 0
      IF <
      THEN 180 +
      END
    END
  

