==28605== 295 (68 direct, 227 indirect) bytes in 1 blocks are definitely lost in loss record 1,570 of 1,853
==28605==    at 0x401A846: malloc (vg_replace_malloc.c:149)
==28605==    by 0x404001D: TclpAlloc (tclAlloc.c:710)
==28605==    by 0x404A5C1: Tcl_Alloc (tclCkalloc.c:1019)
==28605==    by 0x408586A: Tcl_NewDictObj (tclDictObj.c:1224)
==28605==    by 0x4085919: DictCreateCmd (tclDictObj.c:1326)
==28605==    by 0x4089329: Tcl_DictObjCmd (tclDictObj.c:2994)
==28605==    by 0x40441E5: TclEvalObjvInternal (tclBasic.c:3617)
==28605==    by 0x404516F: TclEvalEx (tclBasic.c:4221)
==28605==    by 0x40DBE6B: TclSubstTokens (tclParse.c:2098)
==28605==    by 0x4044AB5: TclEvalEx (tclBasic.c:4086)