val a=io.Source.stdin.mkString.toLowerCase.replaceAll("[^a-z ]","")split" +"
for(s<-a.distinct.sorted)println(a.count(s==)+" "+s)