let
blit_from_string = blit_from ~name:
"string"
Base
.blit_from_string