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