(define primzahl
  (lambda (n t)
    (if (> n 1)
        (if (and (>= t 2) (< t n))
            (if (= (modulo n t) 0)
                #f
                (primzahl n (+ t 1)))
            #t)
        #f)))

(define paare
  (lambda (min max)
    (if (<= (+ min 2) max)
        (if (primzahl min 2)
            (if (primzahl (+ min 2) 2)
                (begin (write min) (display "\t") (write (+ min 2)) (display "\n") (paare (+ min 1) max))
                (paare (+ min 1) max))
            (paare (+ min 1) max))
        (display "Ende erreicht!"))))

; Beispiel-Aufruf (Paare von 1 bis 30):
; (paare 1 30)