let () =
print_endline "";
print_endline "";
let rec aux i =
Printf.printf "&#%d;" i;
Printf.printf ":%d,\n" i;
if (i mod 200) = 0 then begin
print_endline "
";
print_endline "
";
end;
if i < 20_000
then aux (succ i)
else begin
print_newline ();
print_endline "";
print_endline "";
end
in
aux 33
;;