Implementeer de grootste gemene deler met het algoritme van Euclides. Beschrijving (wikipedia):

bepaal ggd(A, B):
 als B = 0
   antwoord = A
 anders
   antwoord = ggd(B, (A mod B))

Hierbij noteren we \(A \mod B\) voor de operatie “rest bij deling van \(A\) door \(B\).” In Haskell is deze functie beschikbaar in de prelude mod :: Integral a => a -> a -> a (mod neemt twee gehele getallen als argument, en geeft een geheel getal terug als resultaat).