/* Rexx */

Call SysFileTree '*.txt', 'Files', 'FO'               /* 砥 ᯨ᮪ 䠩,  ᨢ */

Do i = 1 to Files._                                   /* ᬠਢ    ᨢ    */
 Say Files.i
;

...

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

Stem->Keys.1 = 'ABC'                                  /*  祭                  */

If Stem->>Keys.1 then                                 /* ஢塞 稥                  */
 Say Stem->Keys.1                                     /* 롨ࠥ 祭                */
 Say Stem->'A'                                        /*  ⠪...                              */
;

Do get Key from Stem                                  /* ॡࠥ   祭             */
 Say Key "\t" Stem->Key
;

Do get Key, Value from Keys                           /*  ⠪...                              */
 Say Key "\t" Value
;