let concat_bigstring ts =  concat_gen Bigstring.create blit_to_bigstring ts