(define (list-minimum list)
  (if (null? list)
     list
     (minimum (car list) (cdr list))
  )
)

(define (minimum first-element remaining-list)
   (if (null? remaining-list) 
       first-element
           (if (> first-element (car remaining-list)) 
               (minimum (car remaining-list)(cdr remaining-list))
               (minimum first-element (cdr remaining-list)))
   )
)

(begin 
   (list-minimum (list 12 90 34 23 9 10 80 66 38))
)