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.