剰余をmodとすると
(define mod
(lambda (a b)
(cond
((zero? b) #f)
((< a b) a)
((= a b) 0)
(else
(mod (- a b) b))))

割り算はいらないな