Evaluated proc ping {} {upvar #0 pingresponses pingresponses; lindex_random $pingresponses }
Evaluated lappend pingresponses pong
Evaluated lappend pingresponses PONG
Evaluated lappend pingresponses WHAT DO YOU WANT I'M TRYING TO SLEEP
Evaluated set pingresponses pong
Evaluated lappend pingresponses PONG
Evaluated lappend pingresponses "WHAT DO YOU WANT? I'M TRYING TO SLEEP" "I'll ping you back later"