a # 1 60 R ' r#n cdiv d                                                 '
a # a,[1]  ' r#(nXr)%d+~r#d^=0                                          '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"cdiv - commercial division, returns zero if d=0            '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
Lfx a