mv logaslim~ logaslim~~
mv logaslim logaslim~
mv aslimgb aslimgb~
mv aslimlm aslimlm~
mv aslimpdiffs aslimpdiffs~
~joeb/GB/Devbm/V0.988/bin/alpha/largebergman <<%EOI >logaslim &
(lapin "slimmedtest.sl")
(noncommify) (degreeoutprepare "aslimgb") (setreductivity off)
(setalgoutmode alg) (setcustdisplay t)
(setq xyzxyz (swapgbocprep "aslimlm"))
(setq diffsoutfile (open "aslimpdiffs" '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


