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