($*|a=$<.read.downcase.delete('^a-z 
').split.sort).map{|x|puts"#{a.grep(x).size} "+x}