let move_to t t' = let data = t.data in let len = Array.length data in let data = Array.init len (fun i -> data.(i)) in t'.data <- data; t'.sz <- t.sz