let to_string_hum ?indent sexp = let buf = buffer () in to_buffer_hum ?indent sexp ~buf; Buffer.contents buf