Evaluated proc labelpic who { set w [magic:loadurl [rpic $who]]; mtext $n 20 20 [string toupper $who] Helvetica red 32 }