let nb_rows table = let nb_cells = List.fold_left (fun sum cell -> sum + (cell.cols_used * cell.rows_used)) 0 table.cells in (nb_cells / table.col_nb)