let create_storable_multiclip ?(abst_len=default_abst_len) file =
let group = new Config_file.group in
let op_elts = new Config_file.list_cp
(Config_file.tuple2_wrappers
Config_file.string_wrappers
Config_file.string_wrappers)
["elements"]
~group
[]
""
in
let op_abst_len = new Config_file.int_cp ~group ["abstract_length"] abst_len "" in
let clip = create_multiclip ~abst_len () in
{ clip = clip ;
file = file ;
op_group = group ;
op_abst_len = op_abst_len ;
op_elts = op_elts ;
}