#source this file.. 
# get value is a list with a refcount of 4 .. no string representation
interp alias "" rep "" tcl::unsupported::representation
set j [list a];list
rep $j
set command {set j [list a];list}
uplevel #0 $command\n
rep $j
set j [list a];list
rep $j 

#then type following line in shell:
#$rep j

#value is a list with a refcount of 3  string representation "a"


set x [rep $j];list
puts stdout $x