Evaluated proc gsuggest args {set results [suggest $args]; if {$results eq {}} return; set length [expr [maxstringlength [lines $results]] - 1]; . [format "\[[^_] %-${length}s[^_]]" [join $args]]\n[ajoin "" " " $results]}