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