PROLOG Code for GCD

gcd(A,B,G):- A=B, G is A.
gcd(A,B,G):- A>B, AB is A-B, gcd(AB,B,G).
gcd(A,B,G):- A<B, BA is B-A, gcd(A,BA,G).