a # 1 61 R ' r#payday mdy;Lio                                            '
a # a,[1]  ' r#(days mdy)_I7+Lio#0                                       '
a # a,[1]  ' r#dates r[(u|r)I5]                                          '
a # a,[1]  ' $0                                                          '
a # a,[1]  '"ndates convert dates in character matrices.  see Gdays      '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
a # a,[1]  '"assumes 20th century.                                       '
Lfx a