let
disp_table title h = pl title ;
Hashtbl
.iter disp_fun h