let open_out () = let buf = Buffer.create 13 in let fmt = Format.formatter_of_buffer buf in (buf, fmt), fmt