let store bk file =
  let l = list bk in
  match l with
    [] -> (try Unix.unlink file with _ -> ())
  | _ ->
      bk.bk_cf_cp#set l;
      bk.bk_cf_group#write file