/* SSWork/yacc/debug/asir1.ccc, 1996, 7/28 */
/* load("lib/tostr.ccc"); */
sm1(" [(parse) (lib/tostr.sm1) pushfile] extension ");
x = Poly("x");
f = Test("(x-1)^3");
Println(f);
g = Test(AddString([ " fctr",AsciiToString(40), tostr2(f),AsciiToString(41)]));
Println(g);
/* Use cpp and make them a macro or install call-asir command to sm1.
gcc -x c -E ,
Preprocessor is not a good idea. It doesn't works good.
#define Factor(f) Test(AddString([ " fctr",AsciiToString(40), \
tostr2(f),AsciiToString(41)]))
#define Cancel(f) Test(AddString([ " red",AsciiToString(40), \
tostr2(f),AsciiToString(41)]))
*/