a # 1 60 R ' z#easter ys;c;epact;g;n;x;y                                '
a # a,[1]  '"compute easter for year y, optional style s.               '
a # a,[1]  '"ys may also be a vector o years or an array of years and   '
a # a,[1]  '"stiles.                                                    '
a # a,[1]  ' ys#(2Y(Rys),1 1)Rys                                        '
a # a,[1]  ' s#(y>1922)V(y>1583)&(ys,1752<y#ys[;Lio])[;Lio+1]           '
a # a,[1]  ' $0XIRz#(33>D/y)/''easter wasn''''t celebrated that early.''    '
a # a,[1]  ' x#sX2_D0.75Xc#1+D0.01Xy                                    '
a # a,[1]  ' epact#30|20+(sX10+D0.32Xc_15)+(11Xg#1+19|y)+x              '
a # a,[1]  ' n#44_epact+sX(epact=24)V(epact=25)&g>11                    '
a # a,[1]  ' n#n+30Xn<21                                                '
a # a,[1]  ' n#n+7_7|n+7|x+D1.25Xy                                      '
a # a,[1]  ' $0XI1^=1YRz#n                                              '
a # a,[1]  ' z#(F1+31|-1+n),'', '',F1Yy                                   '
a # a,[1]  ' z#''easter on '',((6XX30.5_n)Y''march april ''),z              '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"easter - compute the date of easter                        '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-compute the date of easter for any year since 33 ad       '
a # a,[1]  '"-year may be a single year or vector of years. it may also '
a # a,[1]  '" be an array of shape (n,2) where the second column is 0 or'
a # a,[1]  '" 1 for each year stating whether the old (0) or new (1)    '
a # a,[1]  '" style calendar was in effect then.  normally, this is     '
a # a,[1]  '" computed automatically.                                   '
Lfx a