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