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"