#!/usr/bin/ruby -Ke

require "kakasi"
require "kconv"
strdef = "\%r \%k \%n\n"

h = Hash::new

while gets
  arr = Kakasi::kakasi("-ieuc -w", $_.toeuc).split
  arr.each{|i|
    if /[°¡-ô¤¥¡-¥ö]/ =~ i
      if h.key?(i)
        h[i] += 1
      else
        h[i] = 1
      end
    end
  }
end

rnk = 1
rnk_pre = rnk
prev_val = 0
h.to_a.sort{
  |a,b| b[1] <=> a[1]}.each{|k,v|
  if prev_val != v
    prev_val = v
    rnk_pre = rnk
  end
  print strdef.gsub("\%k", k).gsub("\%n", v.to_s).gsub("\%r", rnk_pre.to_s)
  rnk += 1
}