Counting elements in a sequence:

histogram ( seq -- hashtable )

histogram-by ( seq quot: ( x -- bin ) -- hashtable )

histogram! ( hashtable seq -- hashtable )

sorted-histogram ( seq -- alist )