a # 1 61 R ' r#ndates km                                                 '
a # a,[1]  ' r#((1YRkm),3)RC,1 1 0 1 1 0 1 1 0\km                        '
a # a,[1]  ' r[;Lio+2]#r[;Lio+2]+1900                                    '
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