mv log1~ log1~~
mv log1 log1~
#mv gb1 gb1~
#mv pb1 pb1~
#mv h1 h1~
#mv ares1 ares1~
../../bin/sun4/bergman <<%EOI >log1
%end;
%(set-heap-size 16000000)
(on backtrace) (off gc)
(system "echo Running on $HOST")
(setcommorder tdeglex)
(getcommorder)
(setalgoutmode alg) (getalgoutmode)
(setweights 2 3) (getweights) (getweightdps) (printweights)
(setiovars '(x y)) (getiovars)
(algforminput) vars X,Y;; (getiovars)
(algforminput) X^3+Y^2; (testindata)
(setq mmm (monintern '(4 5)))
(monprint mmm)
(totaldegree (cdr mmm))
(interpbacktrace)
(quit)
%EOI
