Malgranda rekursiva algortimo ebligas kalkuli la pgkd de du nombroj :a kaj :b:
por pgkd :a :b
se (rest :a :b) = 0 [sendu :b] [sendu pgcd :b rest :a :b]
fino
skribu pgkd 2160 888
24
Rimarku: Oni nepre metu parentezojn ĉirkaŭ rest :a :b; se ne, l’ interpretilo provos evalui :b = 0. Por ŝpari la
parentezojn, skribu: se 0 = rest :a :b