### Deducing Irreducible Polynomial

If w is the yield of ((fileVal "GFpq") p q "entropy") then
(ylppa w (lambda (gen zer zer? one add neg tim inv)
(add (let ((v (make-vector (+ q 1) 0))) (vector-set! v q 1) v)
(neg (((fileVal "expt") tim one inv) #(0 1) q)))))

computes the irreducible polynomial that the representation is based upon.
There should be a better way.
Sorry.