let concat_string = concat_gen String.create blit_to_string