(define list-primes-between (lambda (i j) (if (= (- j )i 0) '() (if (prime? i) (cons i (list-primes-between (+ i 1) j)) (list-primes-between (+ i 1) j)))))