Netscape's Delicate Balancing Act

[Simon Spero]

If anyone interested, I'm planning to  make up some T-Shirts featuring 
"The South Bay Url Company". 

Simon // Yes, we also do Tulips

---
(defun modexpt (x y n)  "computes (x^y) mod n"
  (cond ((= y 0) 1) 	((= y 1) (mod x n))
	((evenp y) (mod (expt (modexpt x (/ y 2) n) 2) n))
	(t (mod (* x (modexpt x (1- y) n)) n))))