Posted to tcl by tspier2 at Mon Jul 30 22:55:06 GMT 2007view pretty

 set x [.basicNounEntryData get]
 set y [.singularNounEntryData]
 set z [.pluralNounEntryData]

 set data {<pardef n=\"$x__n\">\n   <e>\n      <p>\n        <l>$y</l>\n        <r>$y<s n="n"/><s n="mf"/><s n="sg"/></r>\n      </p>\n   </e>\n   <e>\n      <p>\n        <l>$z</l>\n        <r>$y<s n="n"/><s n="mf"/><s n="pl"/></r>\n      </p>\n   </e>\n  </pardef>}

  set filename "test.txt"
  set fileId [open $filename "w"]
  puts -nonewline $fileId $data
  close $fileId