use a standard function for string_of_format
move code from pervasives.ml to camlinternalFormat.ml