a=gsub("[^a-z]","",tolower(scan("stdin","",,,,""))) write(paste(b<-table(a[a>0]),names(b)),T)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page