let rec concat_aux res offset = function
| [] -> res
| h::t -> if h.vlix < 0 then concat_aux res offset t
else let len = length h in
unsafe_blit_on_other h 0 res offset len;
concat_aux res (offset + len) t