O(sqrt(n)) recursive primality test

(define prime? (lambda (n)
    (cond
        ((< n 2)
            #f
        )
        ((= n 2)
            #t
        )
        ((= (modulo n 2) 0)
            #f
        )
        (#t
            (prime_h 3 (sqrt n) n)
        )
    )
))
(define prime_h (lambda (i n m)
    (cond
        ((>= i n)
            #t
        )
        ((= (modulo m i) 0)
            #f
        )
        (#t
            (prime_h (+ i 2) n m)
        )
    )
))
(display (prime? 689024813))
(display (prime? 689024815))