off rlabout;



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


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



basis := { - x1*x3, x1*x3 - x2*x4, 0, 0, x2*x4, 0};


basis := { - x1*x3,

          x1*x3 - x2*x4,

          0,

          0,

          x2*x4,

          0}


classifyComponents {basis};


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

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

 {{1 = 0}},

 {O},

 O}


end;

