$ ./blah 
can't read "state(reply)": no such element in array
    while executing
"binary scan $state(reply) SSSSSSc* mid hdr nQD nAN nNS nAR data"
    (procedure "Decode" line 22)
    invoked from within
"Decode ::dns::1"
    ("eval" body line 1)
    invoked from within
"eval [linsert $args 0 Decode $token]"
    (procedure "::dns::result" line 2)
    invoked from within
"::dns::result $tok"
    (file "./blah" line 7)