a # 1 60 R ' z#chisq qprobf nu                                          '
a # a,[1]  ' z#(*_chisq%2)X(chisq%2)B`O%X\1S_Lio_IDnu%2                 '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"qprobf - compute chi square probability function           '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-compute the probability of a given chi square value       '
a # a,[1]  '" occurring for a given nu (number of degrees of freedom)   '
a # a,[1]  '"-nu is rounded down to the next lower even integer         '
a # a,[1]  '"-note the extreme elegance with which it is possible in apl'
a # a,[1]  '" to express a power series                                 '
Lfx a