let read_multiclip t = t.op_group#read t.file; let clip = create_multiclip ~abst_len: t.op_abst_len#get () in List.iter (fun (abs, contents) -> add clip ~abs contents) t.op_elts#get; t.clip <- clip