\p38
{
members=[
a1,
a2,
a3,
a4,
a6,
b2,
b4,
b6,
b8,
c4,
c6,
area,
bid,
bnf,
clgp,
cyc,
diff,
codiff,
disc,
e,
f,
fu,
gen,
index,
j,
mod,
nf,
no,
omega,
eta,
p,
pol,
reg,
roots,
sign,
r1,
r2,
t2,
tate,
tu,
w,
zk
];}

test(s)=
{
  for (i=1, #members,
    my (m = members[i]);
    trap("impl",,trap("talker",,trap("typeer",, print(".", m, ": ",  eval(Str(s,".", m))))))
  );
}

print("NF"); test( NF = nfinit(y^2-1105) )
print("BNF");test( BNF = bnfinit(NF) )
print("BNR");test( bnrinit(BNF, 4) )
print("RNF");test( rnfinit(NF, x^2-y) )
print("QUADCLASSUNIT"); test( quadclassunit(1105) )
print("GAL"); test( galoisinit(x^2-2) )
print("ELL");test( ellinit([1,2,3,4,5]) )
print("ELLQp");test( ellinit([1,2,3,4,5] * (1+O(11^2))) )
print("SMALLELL");test( ellinit([1,2,3,4,5], 1) )
print("INTMOD");test( Mod(1,3) )
print("POLMOD");test( Mod(x,x^2+1) )
print("QFB");test( Qfb(1,2,3) )
print("QUAD"); test( "quadgen(-4)" )
