Evaluated proc apad {str n {c { }}} { . $str[string repeat $c [- $n [strlen $str]]] }