%%HP: T(1)A(G)F(,);
 "INTERSECCION:" {
RECTA.RECTA
CIRCUNF.RECTA
CIRCUNF.CIRCUNF } 1,
  IF CHOOSE
  THEN  R
    
      IF R
RECTA.RECTA SAME
      THEN RRR
      ELSE
        IF R
CIRCUNF.RECTA SAME
        THEN CCR
        ELSE
          IF R
CIRCUNF.CIRCUNF SAME
          THEN CCC
          END
        END
      END
    
  END
