How to count the number of times an instance appears in a layout

I have a layout with 10s of 1000s of instances and I would like to write a script that reports, for each instance found in the layout, the number of times that instance appears. I have a script that will list the master cells (instances) found that are unique in the entire hierarchy.

procedure(TrHierTraversal(cellView cellList)

  foreach(master cellView~>instances~>master

    let((nextCellView)

      nextCellView=master

        cond(

          (!nextCellView nil)

          (member(nextCellView cellList) nil)

          (t cellList=TrHierTraversal(nextCellView cons(nextCellView cellList))

          ); t

          ); cond

      ); let

  ); foreach

  cellList; return list of all master cells in hierarchy

); procedure

expansion = TrHierTraversal(dbOpenCellViewByType("my_library" "my_top_level_cell" "layout") nil)

foreach(item epantion printf("%L\n" item ~>cellName))

Thanks for your kind attention!