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