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