unknown terminal "dumb"
[was@form 389]$ Magma V2.8-BETA   Mon Jul  2 2001 21:27:31 on form     [Seed = 1]
Linked at:        Tue Jun 12 2001 15:45:49
Type ? for help.  Type <Ctrl>-D to quit.

Loading startup file "/home/was/magma/local/emacs.m"

Loading "/home/was/magma/local/init.m"
> load "code.m";
Loading "code.m"

In file "code.m", line 22, column 1:
>> intrinsic LValue(A::ModSym, p::RngIntElt, D::RngIntElt, n::RngIntElt) -> .,
   ^
User error: Illegal intrinsic

In file "code.m", line 54, column 1:
>> intrinsic LValueExperiment()
   ^
User error: Illegal intrinsic

In file "code.m", line 98, column 1:
>> intrinsic Process(LValues::SeqEnum)
   ^
User error: Illegal intrinsic

In file "code.m", line 122, column 1:
>> intrinsic LValueExperiment3()
   ^
User error: Illegal intrinsic

In file "code.m", line 141, column 1:
>> intrinsic TopGCDs(LValues::SeqEnum)
   ^
User error: Illegal intrinsic
> A := MS("389A");
> LValue(A,3,1,2);

>> LValue(A,3,1,2);
   ^
User error: Identifier 'LValue' has not been declared or assigned
> Attach("code.m");
> LValue(A,3,1,2);
KroneckerCharacter...
Time: 0.000
DirichletGroup...
Time: 0.000
Twisted Winding Element...
Time: 0.089
map...
Norms...
Time: 0.000
[ 0, 36 ]
> LValue(A,5,1,2);
KroneckerCharacter...
Time: 0.000
DirichletGroup...
Time: 0.000
Twisted Winding Element...
Time: 0.219
map...
Norms...
Time: 0.000
[ 0, 160000 ]
> factor(160000);
[ <2, 8>, <5, 4> ]
1
> LValue(A,5,1,3);
KroneckerCharacter...
Time: 0.000
DirichletGroup...
Time: 0.000
Twisted Winding Element...
Time: 1.739
map...
Norms...
Time: 0.009
[ 0, 15479823456683292932555407360000 ]
> factor($1[2]);
[ <2, 40>, <5, 4>, <12251, 4> ]
> LValue(A,5,1,4);
KroneckerCharacter...
Time: 0.010
DirichletGroup...
Time: 0.000
Twisted Winding Element...
Time: 40.760
map...
Norms...
Time: 2.749
[ 0, 1353025162202369886692394653175021271478920226499120072818033095170582515259392450649619621324553257292444018513226059881959667298709454478736895798698751083340983580635532929190998339409282977077379764218485916303360000 ]
> Valuation($1[2],5);
4
> G<a> := DirichletGroup(9,CyclotomicField(6));
> e := a^2;
> e;
a^2
> Evaluate(e,389);
zeta_6 - 1
> DualHeckeOperator(A,389);
[1 0]
[0 1]
>