off rlabout;



symbolic (infile "../../SUPPORT/real.red" where !*output=nil);


symbolic (infile "../../SUPPORT/strings.red" where !*output=nil);



P := {{x1, x3}, {x2, x3}};


p := {{x1,x3},{x2,x3}}


classifyComponents P;


{{{x1,x3},{x2,x3}},

 {{},{}},

 {{1 = 0},{1 = 0}},

 {o,o},

 2o}


end;

