let
to_string = make
String
.create
Base
.blit_to_string