# The asort function from the GNU awk used

{ for (k = 1; k <= NF; k++) score[$k]++ }

END {
  i = 1
  for (word in score)
    words[i++] = word ""
  n = asort(words)
  for (i = 1; i <= n; i++)
    print words[i], score[words[i]]
}