(lambda (p q n) (write (list "ffm" 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+ p- (U 'f*) (U 'f/))))