set s [format "%03d %03d %03d" $lst]
みたいなのでもうまくいかないんです