Evaluated proc GAY who { set w [magic:loadurl [rpic $who]]; magic:stamp $w gay; gayborder $w; save $w }