:pgcd(a,b) :Func :Local r
:mod(a,b)->r :b->a :r->b :EndWhile :Return a :EndFunc
-Version récursive
:pgcd(a,b) :Func
:Return pgcd(b, mod(a,b)) :Else :Return a :EndIf :EndFunc