P33

(load "p32.l")

(de coprime (A B)
   (= 1 (gcd A B)) )

http://picolisp.com/wiki/?99p33

10jul10

abu