h={}
$<.read.delete('!-@_~\\').downcase.split.each{|x|h[x]=(v=h[x])?v+1:1}
h.to_a.sort.each{|x,y|puts"#{y} #{x}"}