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