(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.