(
define
(
gcd
m n
)
(
cond
(
(
<
m n
)
(
gcd
m
(
-
n m
)
)
)
(
(
<
n m
)
(
gcd
(
-
m n
)
n
)
)
(
else
m
)
)
)