let compute_operators operator_tbl =
let x, y =
fold operator_tbl.tspec_tbl (
fold operator_tbl.otherop_tbl (
fold operator_tbl.reserved_tbl (
fold operator_tbl.knownop_tbl (0,0))))
in (float_of_int x), (float_of_int y)