%%HP: T(1)A(R)F(.);
 CLEAR
"Zero FOR STEP
 from a till b
Enter a b"
"" INPUT OBJ  A B
   0 A B
    FOR C C + 1
    STEP  D
     A "a" TAG B
"b" TAG D "  " A
STR "  " B STR +
+ + TAG
    
  

