open Printf (* Afficher une liste d'entiers *) let rec pints l = match l with | [] -> print_newline () | [x] -> printf "%i\n" x | x::xs -> printf "%i " x ; pints xs ;; let rec interval n m = if m < n then [] else n::interval (n+1) m ;; let u = int_of_string Sys.argv.(1) ;; let r = interval 2 u ;; let _ = pints r ; exit 0 ;;