a # 1 60 R ' w#nth word k                                               '
a # a,[1]  ' w#1U(nth=+\'' ''=w)/w#dtmb,'' '',k                             '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"word - select nth word in character structure              '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-if words in a vector are delimited by blanks, or appear   '
a # a,[1]  '" in separate rows of an array and are similarly delimited, '
a # a,[1]  '" they can be chosen by the natural numbers indicating      '
a # a,[1]  '" their position, from left to right and top to bottom.     '
Lfx a