(define ret-min (lambda (arr) (define inner (lambda (i) (< i (array-end arr 0) (min (array-ref arr i) (inner (+ i 1))) (array-ref arr i)))) (inner 0)))