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