Posted to tcl by de at Tue Dec 12 21:54:58 GMT 2017view raw

  1.  
  2. set deep 74825
  3. set doc [dom parse "<doc>[string repeat <e> $deep]hehe[string repeat </e> $deep]</doc>"]
  4. set result [$doc asXML -indent none]
  5. puts [string length $result]
  6. exit 1
  7.