Evaluated proc attn args {set str [. $args]; set out {}; for {set i 0} {$i < [llength [names]]} {incr i} {append out "[string repeat { } $i][lindex [names] $i]: $str\n"}; . $out }