a # 1 64 R ' d#dates n;y;m;p;r;Lio                                          '
a # a,[1]  ' m#(0,[0.1]4 100 400)Ny#(D(364+d#,n)%365.2425)J.+0,Lio#1        '
a # a,[1]  ' d#d_,0 -1U(r#d>m[;2])`Om#(365Xy_1)+_`/m[1;;;],[1]p#=`/0=m[2;;;]'
a # a,[1]  ' d#d_D30.56Xm#D(d#30+d+(d>59+p)X2_p#(r`Op)[;1])%30.56           '
a # a,[1]  ' d#((Rn),3)Rm,d,0 -1Ur`Oy                                       '
a # a,[1]  ' $0                                                             '
a # a,[1]  '"dates - converts days back into calendar dates. see Gdays      '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.     '
a # a,[1]  '"not accurate prior to 1753. use Gdayno.                        '
a # a,[1]  '"this function does not produce correct answers.                '
Lfx a