(define (modulo n t)
  (let ((ergebnis (/ n t)))
    (if (eq? ergebnis (floor ergebnis)) #t #f)))
(display (modulo 14 5)) (newline)
(display (modulo 15 5)) (newline)