let string_of pp arg = Buffer.clear buf; ignore(pp buf_formatter arg); Format.pp_print_flush buf_formatter (); Buffer.contents buf