apl>" <------------------------- sam172.txt ---------------------------->


apl>" <- Quad-LC, stop control ----------------------------------------->


apl>a # 1 15 R 'b recurse a    '


apl>a # a,[1]  '$(a > b) / show'


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


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


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


apl>Lfx a

recurse

apl>sHrecurse # 4


apl>2 recurse 2

recurse[4]

apl>10 recurse 10

recurse[4]

apl>)si

recurse[4] *
recurse[2] 
recurse[4] *
recurse[2] 


apl>$L#Llc

4 2 4 2

11

apl>)si

recurse[4] *
recurse[2] 


apl>$Llc

3

apl>)off