Posted to tcl by evilotto at Wed Jun 05 21:10:49 GMT 2013view pretty

$ tclsh8.6
% set a 1
1
%  set a 1
1
%  set a 1
1
%  set a 1
1
%  set a 1
1
%  set a 1
1
% ::tcl::unsupported::representation $a
value is a int with a refcount of 14, object pointer at 0x8081120, internal representation 0x1:(nil), string representation "1"
% history clear
% ::tcl::unsupported::representation $a
value is a int with a refcount of 8, object pointer at 0x8081120, internal representation 0x1:(nil), string representation "1"
%