m=Hash.new{0} $<.read.downcase.gsub(/[^a-z ]/,'').scan(/[a-z]+/){m[$&]+=1} m.sort_by{|x|x}.map{|k,v|puts"#{v} #{k}"}