Calcular MDC em Logo

Um pequeno algoritmo recursivo permite calcular o MDC de dois números :a e :b

aprenda MDC :a :b
se (resto :a :b)=0 [saída :b][saída MDC :b resto :a :b] 
fim

mostre MDC 2160 888 ---> 24

Nota: É importante colocar resto :a :b entre parênteses, senão o xLogo se confundiria e tentaria avaliar :b = 0. Para evitar esse problema de usar ou não parênteses, poderíamos ter escrito: se 0=resto :a :b