/* Rexx */

Do i = 1 to Files.0                                   /* ᬠਢ    ᨢ */
 Say Files.i
End

...

Keys. = ''                                            /*  祭  㬮砭         */
Keys.1 = 'A'                                          /*  騥 祭                 */
Keys.2 = 'Z'

Stem.[Keys.1] = 'ABC'                                 /*  祭               */

If Var('Stem.'Keys.1) then do                         /* ஢塞 稥               */
 Say Stem.[Keys.1]                                    /* 롨ࠥ 祭             */
 Say Stem.A                                           /*  ⠪...                           */
End

Do i over Stem.                                       /* ॡࠥ   祭          */
 Say i '<-' Stem.i
End