#| Для этого упражнения нет проверок.
Любое решение будет считаться успешным ответом. |#
(define (gcd a b)
  (if (zero? b)
      a
      (gcd b (remainder a b))))
; Апликативный порядок: 4раза
; Нормальный порядок: 18 раз =  14 раз в условиях будут вычислятся, через накопленные вызовы + 4 раза итоговое вычисление ответа (перем а)