mv log~ log~~
mv log log~
~/GB/Devbm/V0.951/bin/Linux_elf/bergman <<%EOI >log &
% A twomodules bug found by SC:
%(load nbig)(on nobignum)
(on !A!Ndebug)
(twomodbettinumbers) 6 1 1
vars x,y,X,Y,r,l; x*x-y*y, x*Y-Y*x, r*y-r*Y,
y*X-X*y, x*X-X*x, y*Y-Y*y, X*X-Y*Y, r*x-r*X, x*l-X*l, y*l-Y*l;
(interpbacktrace)
(getobjecttype)
(progn (terpri) (prin2 "anbnmChainStartIndexLimits = ")
  (print !A!N!B!N!MC!H!A!I!NS!T!A!R!TI!N!D!E!XL!I!M!I!T!S)
  (prin2 "anbnmChainEndIndexLimits = ")
  (print !A!N!B!N!MC!H!A!I!NE!N!DI!N!D!E!XL!I!M!I!T!S)
  (prin2 "anbnmLModNormalMonStartIndexLimits = ")
  (print !A!N!B!N!MLM!O!DN!O!R!M!A!LM!O!NS!T!A!R!TI!N!D!E!XL!I!M!I!T!S)
  (prin2 "anbnmLModNormalMonEndIndexLimits = ")
  (print !A!N!B!N!MLM!O!DN!O!R!M!A!LM!O!NE!N!DI!N!D!E!XL!I!M!I!T!S)
  (prin2 "NALGGEN = ") (print nalggen)
  (prin2 "!*CALCBETTI is ") (prin2 !*CALCBETTI)
  (prin2 "; !*ONFLYBETT is ") (print !*ONFLYBETTI)
  (prin2 "Current degree: ") (print (getcurrentdegree))
  (prin2 "anLASTCALCULATEDDEGREE = ") (print !A!Nlastcalculateddegree)
  t)
(bo)
(printchainsdiff nil)
(printbetti)
(expt 2 100)
(quit)
%EOI
