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