let
hash b =
Hashtbl
.hash b.b_name