\\ package: galpol

galoisgetpol(8)
for(i=1,5,printsep(":",galoisgetname(8,i),galoisgetgroup(8,i),galoisgetpol(8,i)))
for(i=1,5,print(galoisgetpol(8,i,2)))
test(n,k)=
  if(galoisidentify(galoisinit(galoisgetpol(n,k)[1])) != [n,k], error([n,k]));
test(8,3)
test(18,5)
test(27,3)
test(45,2)
test(30,4)
test(32,4)
test(32,13)
test(32,30)
test(32,32)
test(36,9)
test(42,2)
test(48,12)
test(64,3)
test(64,14)
test(64,16)
test(64,48)
test(64,51)
test(64,70)
test(64,68)
test(64,80)
test(64,44)
galoisidentify(galoisinit(polcyclo(390)))

\\ Errors, keep at end of file
galoisgetpol(8,6)
galoisgetpol(3,1,3)
galoisgetpol(3,1,2)
