; Key Pair Generation
(lambda (fp s) (apply (lambda (p q g)
  (let* ((x (((((fileVal "RC4") s) 'rbi) (- q 1))))
  (y (((fileVal "expt") (lambda (a b) (modulo (* a b) p)) 1 #f) g x)))
  (cons y x))) fp))


((fileVal "DSA/kpg") (fileVal "DSA/DPfloop") "siglemazt")
=>(123676889106929985537605267137450739940617765282438280679930119018866753176543794079174712048400033276594423130481230796683843452612256546182943582028714591504381836326040064874884481769717045699500148933513283582105169673030713810623988029685028758552569523781282738936851660740870529791587792083521927719105 . 92654277953451311026783696146087359854847014173)