M=toupper(m="nopqrstuvwxyzabcdefghijklm")m{for($(FS=o=n=_)=$0;n++<NF;)o=(i=index(M,$n))?sprintf(o"%c",i>26?i+70:i+64):o$n print o}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page