Evaluated proc idkyet who { map [string map {https {} http {} : {} www {} imgur {} i {} com {} . {} / {} # {} jpg {} png {} gif {} , { }} [regsub -all {\d$} [pics $who] ""]] {x {. http://i.imgur.com/$x.jpg}} }