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