let
concat_string = concat_gen
String
.create blit_to_string