(module compte-bon (main entre)) (define (entre args) (let ((n (string->number (cadr args))) (L (map string->number (cddr args)))) (print (compte-bon n L))))