<th1>
  #
  # This is a "script fragment" used to test the Tcl integration features of
  # Fossil.  The corresponding test file executes this file using the
  # test-script-render Fossil command.
  #
  proc doOut {msg} {puts $msg; puts \n}
  doOut [tclEval bridgeEval bad_command]
</th1>