L S =INPUT :F() S "I" =LGT(S,"j") "i" R S ANY(&UCASE) . C =" " REPLACE(C,&UCASE,&LCASE) :S(R) OUTPUT =S :(L) END
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page