off rlabout;



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


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



basis := { - x1, 0, 0, 0};


basis := { - x1,0,0,0}


classifyComponents {basis};


{{{x1}},{{}},{{1 = 0}},{o},o}


end;

