Evaluated proc rpic name { string map {http:// {} www {} imgur {} com {} . {} / {} , {} # {} , { }} [pics $name] }