apl>" <------------------------- sam173.txt ---------------------------->


apl>" <- Trace control ------------------------------------------------->


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


apl>a # a,[1]  'add:a#a+1      ' 


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


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


apl>Lfx a

loop

apl>tHloop # 1 2


apl>2 loop 0

loop[1]
loop[2] $1
loop[1]
loop[2]
loop complete

apl>)off