mv logaslim2ch~ logaslim2ch~~
mv logaslim2ch logaslim2ch~
mv aslim2chgb aslim2chgb~
mv aslim2chlm aslim2chlm~
mv aslim2chpdiffs aslim2chpdiffs~
~joeb/GB/Devbm/V0.988/bin/alpha/largebergman <<%EOI >logaslim2ch &
(lapin "slimmedtest.sl") (setmaxdeg 12)
(noncommify) (degreeoutprepare "aslim2chgb") (setreductivity off)
(setalgoutmode alg) (setcustdisplay t) (setmodulus 2)
(setq xyzxyz (swapgbocprep "aslim2chlm"))
(setq diffsoutfile (open "aslim2chpdiffs" 'output))
(de degreeenddisplay ()
 (progn (degreeoutput)
	(swapgboc) (degreelmoutput) (swapgboc)
	 (terpri)
	 (prin2 "% No. of Spolynomials calculated until degree ")
	 (prin2 (getcurrentdegree)) (prin2 ": ")  (print noofspolcalcs)
	 (prin2 "% No. of ReducePol(0) demanded until degree ")
	 (prin2 (getcurrentdegree)) (prin2 ": ")  (print noofnilreductions)
	 (prin2 "% Time: ") (print (time))
))
(lapin "jerin")
(gi) % Causes creation and internalisation of MONONE. Must be removed:
(rplacd monlist (cddr monlist))
(gk)
(close xyzxyz)
(go)
(getcurrentdegree)
(length monlist)
(interpbacktrace)

%EOF


