Evaluated proc ctext str {if{[string length $str] > 0} {return "05$str"}}