mv log3e0~ log3e0~~
mv log3e0 log3e0~
mv g3e0out g3e0out~
mv pb3e0out pb3e0out~
mv h3e0out h3e0out~
/usr/local/matte/bergman/Newbergman/bin/sun4/bergman <<%EOI >log3e0 &
(set-heap-size 16000000)
(system "echo Running on $HOST")
(NONCOMMIFY)
(OFF PBSERIES)
(SETQ ALGOUTMODE 'MAPLE)
(DEGREEOUTPREPARE "g3e0out")
(ON CUSTSHOW)
(OFF RAISE)
(DE DEGREEENDDISPLAY ()
 (PROGN (DEGREEOUTPUT)
	(PRIN2 "
  Finished degree ") (PRINT cDeg)
	(PRIN2 " Number of new Groebner basis elements: ")
	(PRINT (SUB1 (LENGTH cGBasis)))
	(PRIN2 " Time: ") (PRINT (TIME))
	(PRIN2 " Lengths of SPairs member lists:
  ")
	(PRINT (MAPCAR SPairs 'LENGTH))
	(PRIN2 "Number of S-polynomial reductions at this degree: ")
	(PRINT NOOFSPOLCALCS)
	(SETQ NOOFSPOLCALCS 0)
))

)
(DSKIN "inp3a")
(GI)(GK)(GF)
(INTERPBACKTRACE)
(QUIT)
%EOI
