Evaluated proc pokemon i {set n [format "%03d" $i]; . .. wget [paste [string map "@ { } O { } o { } . { }" [jpeg11 http://www.serebii.net/xy/pokemon/$n.png 120]]]}