Evaluated proc prep_ascii {str {pad 20}} {asc2hb [vappend [vprepend [evenize $str] [^C]1,1] [^C]1,1[string repeat a $pad]]}