(lambda (dp sk s hsh) (let ((gf (fileVal "GFp")))
   (ylppa dp [lambda (p q g)
   (ylppa (gf p) {lambda (addp negp mulp invp)
   (ylppa (gf q) (lambda (addq negq mulq invq)
(let* (
   (mep ((fileVal "expt") mulp 1 invp))
   (k (((((fileVal "RC4") s) 'rbi) (- q 1))))
   (X (mep g k))
   (r (modulo X q))
   (s (mulq (invq k) (addq hsh (mulq sk r)))))
   (cons r s))))})])))

((fileVal "DSA/sg") (fileVal "DSA/DPfloop")
  (fileVal "DSA/seckey") "floosh" 2398769810227758848)