
(ON PBSERIES)
(COND ((EQ (GETALGOUTMODE) 'LISP)
       (SETALGOUTMODE ALG)))
(NONCOMMIFY)
(SETMAXDEG 6)
(SETMODULUS 2)
(ALGFORMINPUT)
vars b,f,d,c,e,a;
a*a +e*d +f*b, d*e + b*b + c*a, b*e + e*c+e*f,  b*a + b*d + f*a, c*d + 
a*c + f*e, a*e + d*f + c*f, c*e + c*c +a*f, a*b + e*e + b*c + f*f, c*b + 
d*d + d*a + b*f, a*d + c*a + d*a;
(DEGREEOUTPREPARE gbfile)
(SETQ PBoutfi (OPEN PBfile 'OUTPUT))
(SETQ Houtfi (OPEN Hfile 'OUTPUT))
(ON CUSTSHOW)
(COPYD 'oldded 'DEGREEENDDISPLAY)
(COPYD 'DEGREEENDDISPLAY 'NCPBHDED)
(GROEBNERINIT)
(GROEBNERKERNEL)
(GROEBNERFINISH)
(CLOSE PBoutfi)
(CLOSE Houtfi)
(COPYD 'DEGREEENDDISPLAY 'oldded)