apl>" <------------------------- sam171.txt ---------------------------->


apl>" <- More state indicator, recursion, )SI -------------------------->


apl>a # 3 15 R 'b recurse a    ','$(a > b) / r   ','a              '


apl>a # a,[1]  'b recurse a+1  '


apl>a # a,[1]  'r:a            '


apl>Lfx a

recurse

apl>sHrecurse # 4


apl>1 recurse 0

0
1
recurse[4]

apl>10 recurse 10

10
recurse[4]

apl>)si

recurse[4] *
recurse[3] 
recurse[4] *
recurse[3] 
recurse[3] 


apl>$

10 recurse 10
   ^ 997 - clearing state indicator to last suspended function.

apl>)si

recurse[4] *
recurse[3] 
recurse[3] 


apl>)off

1 recurse 0
  ^ 998 - end of apl processing.