(module compte-bon
       (main entre))

(define (entre args)
 (display "Entre un nombre : ")
 (let ((n (read)))
   (display "Entre une liste de nombres")
   (display " en ordre croissant : ")
   (let ((L (read)))
     (print (compte-bon n L)))))