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