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