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