let () = print_endline ""; print_endline ""; let rec aux i = print_endline " "; Printf.printf "&#%d;" i; if i < 10_000 then aux (succ i) else print_newline () in aux 0 ;;