a=gsub("[^a-z]","",tolower(scan("stdin","",,,,"")))
write(paste(b<-table(a[a>0]),names(b)),T)