let concat ts = of_base (concat_gen Base.create blit_base ts)