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