seq and list for runtextmacro

//! textmacro mytextmacro takes level
     set a[$level$]=b$level$
//! endtextmacro

//! runtextmacro mytextmacro(seq(1,10))

    set a1=b[1]
    set a2=b[2]
    set a3=b[3]
    set a4=b[4]
    set a5=b[5]
    set a6=b[6]
    set a7=b[7]
    set a8=b[8]
    set a9=b[9]
    set a10=b[10]

//! runtextmacro mytextmacro(seq(7,10,"0"))

    set a07=b[07]
    set a08=b[08]
    set a09=b[09]
    set a10=b[10]
//this one output example is bad since it will cause compile errors,
//hope most of you have noticed the issue with this result block of text.

    set aorange=b[orange]
    set ared=b[red]
    set ablue=b[blue]

//! textmacro silly takes a, b , c, d
     set $a$$b$$c$$d$ = 0
//! endtextmacro


//! runtextmacro silly("M", seq(1,3), list("X","Y"), seq(9,13,"Z") )

//result:
     set M1XZ9=0
     set M2Y10=0
     set M3X11=0
     set M1Y12=0
     set M2X13=0