" <------------------------- sam173.txt ---------------------------->
" <- Trace control ------------------------------------------------->
a # 1 15 R 'b loop a       '
a # a,[1]  'add:a#a+1      ' 
a # a,[1]  '$(a < b) / add '
a # a,[1]  '''loop complete'''
Lfx a
tHloop # 1 2
2 loop 0
)off