apl>" <------------------------- sam170.txt ---------------------------->


apl>" <- State indicator, recursion, )SI ------------------------------->


apl>a # 1 12 R 'recurse a   '


apl>a # a,[1]  '$(a > 2) / r'


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


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


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


apl>Lfx a

recurse

apl>sHrecurse # 4


apl>recurse 0

0
1
2
recurse[4]

apl>)si

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


apl>)off

recurse 0
^ 998 - end of apl processing.