let load bk file = Hashtbl.clear bk.bk_table; bk.bk_cf_group#read file; let f (name, data) = set bk name data in List.iter f bk.bk_cf_cp#get