off rlabout;



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


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



basis := { - x1*x2 - x1, 4*x1 - 3*x2, 0, 0, 0};


basis := { - x1*x2 - x1,4*x1 - 3*x2,0,0,0}


classifyComponents {basis};


{{{x1,x2}},

 {{x1,x2}},

          - 3
 {{x1 = ------,x2 = -1}},
          4

 {C},

 C}


end;

