mv logxslim~ logxslim~~
mv logxslim logxslim~
mv slimgb slimgb~
mv slimlm slimlm~
mv slimpdiffs slimpdiffs~
~joeb/GB/Devbm/V0.988/bin/Linux_elf/largebergman <<%EOI >logxslim &
(lapin "xslimmedtest.sl")
(noncommify) (degreeoutprepare "slimgb") (setreductivity off)
(setalgoutmode alg) (setcustdisplay t)
(setq xyzxyz (swapgbocprep "slimlm"))
(setq diffsoutfile (open "slimpdiffs" '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 "jerin4")
(gi) % Causes creation and internalisation of MONONE. Must be removed:
(rplacd monlist (cddr monlist))
(gk)
(close xyzxyz)
(go)
(getcurrentdegree)
(length monlist)
(interpbacktrace)

%EOF


