(define (zaehle start ende n)
  (if (> start ende) (zaehle-minus-iter start ende  n fach)
      (zaehle-plus-iter start ende n 0)))

(define (zaehle-plus-iter zaehler ende n fach)
  (cond ((= zaehler ende) 0)
        ((and (hilf zaehler) (= n fach)) zaehler )
        (else (zaehle-plus-iter (+ zaehler 1) ende n (if (hilf zaehler) (+ fach 1))))))


(define (zaehle-minus-iter zaehler ende fach n)
  (cond ((= zaehler ende) 0)
        ((and (hilf zaehler) (= n fach)) zaehler )
        (else (zaehle-minus-iter (- zaehler 1) ende n (if (hilfe zaehler) (+ fach 1))))))


 (define (hilf zaehler)
   (and (odd? (expt zaehler 2)) (= (remainder (expt zaehler 2) 7)0)))