private variable score, words;

define slsh_main()
{
  score = Assoc_Type[Int_Type, 0];
  variable i, line, word;

  foreach line (stdin) {
    foreach word (strtok(line)) {
      score[word]++;
    }
  }

  words = assoc_get_keys(score);

  foreach i (array_sort(words)) {
    () = printf("%s %d\n", words[i], score[words[i]]);
  }
}