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