Posted to tcl by evilotto at Sat Feb 04 00:31:37 GMT 2017view pretty

$ cat /tmp/x.tcl 
puts [tcl::unsupported::representation {foo}]
puts [tcl::unsupported::representation {foo}]
puts [tcl::unsupported::representation {foo}]
puts [tcl::unsupported::representation {foo}]
$ tclsh /tmp/x.tcl
value is a pure string with a refcount of 1, object pointer at 0x1c9f6c0, string representation "foo"
value is a pure string with a refcount of 1, object pointer at 0x1ca0080, string representation "foo"
value is a pure string with a refcount of 1, object pointer at 0x1c9f6c0, string representation "foo"
value is a pure string with a refcount of 1, object pointer at 0x1ca0080, string representation "foo"
$ tclsh < /tmp/x.tcl
value is a pure string with a refcount of 3, object pointer at 0xcca690, string representation "foo"
value is a pure string with a refcount of 4, object pointer at 0xcca690, string representation "foo"
value is a pure string with a refcount of 5, object pointer at 0xcca690, string representation "foo"
value is a pure string with a refcount of 6, object pointer at 0xcca690, string representation "foo"