repeat 
    if @greater(@pos(<,%A),0)
      %b = @pos(<,%A)
      %c = @pos(>,%A)
      %d = @substr(%A,1,@fsub(%B,1))
      %e = @substr(%A,@sum(%C,1),@len(%A))
      %a = %D""%E
    end 
  until @equal(@pos(<,%A),0)