Posted to tcl by stu at Sat May 28 16:46:21 GMT 2022view pretty

Input:

{defe}proc  proc{~}{/defe}
{defe}/proc }{/defe}
{defe}args  {~}{{/defe}
{defe}/args }{~}{{/defe}

{proc} test
{args}a b args{/args}
puts $a:$b:[llength $args]
{/proc}


Output:

proc test {a b args} { puts $a:$b:[llength $args] }