a # 1 61 R ' n#days d;p;i;Lio                                            '
a # a,[1]  ' d#((X/i#-1URd),3)Rd HLio#1                                  '
a # a,[1]  ' p#=`/0=(n#(0,[0.1]4 100 400)Nd[;3])[2;;]                    '
a # a,[1]  ' n#(365Xd[;3]_1)+_`/n[1;;],[1]p                              '
a # a,[1]  ' n#iRn+d[;2]+(D30.56Xd[;1])_30+(d[;1]Z3)X2_p                 '
a # a,[1]  ' $0                                                          '
a # a,[1]  '"days - date calculations                                    '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
a # a,[1]  '"-given a numeric vector or matrix of the form: month day    '
a # a,[1]  '" year (1 30 1977), days will return for each, the number of '
a # a,[1]  '" days since 1/1/1, inclusive, as if the gregorian calendar  '
a # a,[1]  '" had been in use continually, with no loass at the change   '
a # a,[1]  '" (in england on september 14, 1752.) for a better function, '
a # a,[1]  '" see Gdayno.  the 7| of days, can select the days of the    '
a # a,[1]  '" week, with 0#$sunday; 1#$monday, etc.                      '
a # a,[1]  '"-dates converts the days back into calendar dates.          '
a # a,[1]  '"-ndates converts dates available as character matrices of   '
a # a,[1]  '" the form: ''013077'' to that required by days.               '
a # a,[1]  '"not accurate prior to 1753. use Gdayno.                     '
Lfx a