let to_string = make String.create Base.blit_to_string