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