#!/usr/local/bin/ruby

freq = Hash.new(0)

while l = gets
  for word in l.chomp!.split(/[,. \t]+/)
    if word != ""
      freq[word] += 1
    end
  end
end

puts "--------------+--------"
for word in freq.keys.sort{|x, y| freq[y] <=> freq[x]}
  if /[a-z]/ =~ word
    printf(" %-12s | %3d\n", word, freq[word])
  end
end
puts "--------------+--------"