LOWER:PROCEDURE
/* Object REXX lacks LOWER() funcs. Well, here it is */
PARSE ARG A
RETURN TRANSLATE(A,XRANGE('a','z'),XRANGE('A','Z'))