Evaluated proc +stamp {name url} {set ::clipart([string map {stamp {}} $name]stamp) $url}