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