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