let
concat_bigstring ts = concat_gen
Bigstring
.create blit_to_bigstring ts