&UCASE LEN(13) $ R2 REM $ R1
     &LCASE LEN(13) $ R4 REM $ R3
LOOP OUTPUT = REPLACE(INPUT, &UCASE &LCASE, R1 R2 R3 R4) :S(LOOP)
END