spacepaste

let () =
let f = open_out "bug-test" in
let ff = Format.formatter_of_out_channel f in
Format.fprintf ff "@[<2>{@,";
for x = 0 to 57621086 do
Format.fprintf ff "@[<2>[@,";
let _ = List.fold_left (fun is_first o ->
if not is_first then Format.fprintf ff ",@ ";
Format.fprintf ff "%d" o;
false
) true [1; 2; 3; 4; 5; 6; 7; 8; 9; 10] in ();
Format.fprintf ff "@]@,]"
done;
Format.fprintf ff "@]@,}";
Format.fprintf ff "@.";
close_out f