let list bk =
  Hashtbl.fold (fun name data acc -> (name, data) :: acc) bk.bk_table []