Evaluated proc magic:stamps {} { lsearch -regexp -inline [array names clipart] {stamp$} }