a # 1 61 R ' z#date js;c;d;j;m;s;y                                       '
a # a,[1]  ' js#(2Y(Rjs),1 1)Rjs                                         '
a # a,[1]  ' s#(j>2423434)V(j>2299171)&(js,2361221<j#js[;Lio])[;Lio+1]   '
a # a,[1]  ' c#D(j#j_1684595)%36524.25                                   '
a # a,[1]  ' j#j+((~s)X(2_c)+Sc%4)_S36524.25Xc                           '
a # a,[1]  ' y#D(j+1)%365.25025                                          '
a # a,[1]  ' j#j+31_D365.25Xy                                            '
a # a,[1]  ' d#j_D30.5875Xm#Dj%30.5875                                   '
a # a,[1]  ' m#m+2_12Xj#Dm%11                                            '
a # a,[1]  ' z#m,d,(j+y+100Xc_1),[Lio+0.5]s                              '
a # a,[1]  ' $0                                                          '
a # a,[1]  '"date - compute normal date from astronomer''s day number     '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
a # a,[1]  '"-returns month, day, year, style, (see Gdayno)              '
a # a,[1]  '"-js is the julian day number as would be found by Gdayno.   '
a # a,[1]  '"-js may be a single value or a vector.  optionally, it may  '
a # a,[1]  '" be an array of shape (n,2) where the second column is 0 or '
a # a,[1]  '" 1, stating for each julian day whether the old (0) or new  '
a # a,[1]  '" (1) calendar was in use.  normally, this style is computed '
a # a,[1]  '" automatically.                                             '
Lfx a