(lambda (p q n)
(let* ((T ((fileVal "finiteField") p))(U ((T 'fops) ((T 'gsip) q)))
   (p+ (T 'p+))(i->p (T 'i->p))(p- (T 'p-)))
   ((fileVal "Matrix") (let ((rg ((((fileVal "RC4") "flipper") 'rbi) (expt p q))))
   (lambda () (i->p (rg)))) '#()
   (lambda (x) (zero? (vector-length ((T 'trim) x))))
   '#(1) p+ p- (U 'f*) (U 'f/))))