Count dublicates

[myndeswx]

Can't think of a way to do this, please help)

I have a list like this -

 804158107
804158107
804158107
804158107
796264613
796264613
796264613
796264613
800656561
800656561
800656561
800656561
788464590
788464590
788464590
788464590
799175405
799175405
799175405
799175405
800656561
800656561
800656561
800656561
804158107
804158107
804158107
804158107
796264613
796264613
796264613
796264613
802684948
802684948
802684948
802684948
804158107
804158107
804158107
799136563
799136563
799136563
799136563
790277212
790277212
790277212
790277212
800282710
800282710
800282710
800282710
788469004
788469004
788469004
788469004
795009801
795009801
795009801
795009801
788464590
788464590
788464590
788464590
795009801
795009801
795009801
795009801
780342444
780342444
780342444
780342444
804158107
804158107
804158107
804158107
800282710
800282710
800282710
800282710
788464590
788464590
788464590
788464590
800260066
800260066
800260066
800260066
801860193
801860193
801860193
801860193
804158107
804158107
804158107
804158107

And I need to find how many times each text is dublicated, for example -

800282710 - 8
801860193 - 4
800260066 - 4
A.

Thank you bright minds, hope I don't have to do it the messy way))

 

[myndeswx]

Nevermind, it was pretty easy to do with cubes as well)
A. Just sort the list1
A.Set counter to 0
A. Get first entry {var1}
A. increase counter by 1
A.Get from list1 'containing text {var1}'
A. if successfull increase counter and get next, if failed add to table. {var1};counter