HTML in Tcl

Another example of the flexibility of Tcl. Any non-existent commands that look like HTML tags are output to standard out.

 proc unknown args {
   set args [string trim $args]
   if {![regexp {^<.*>$} $args]} {
     error "Unknown command: $args"
   }
   puts -nonewline [join $args]
   return 0
 }

 <html>
 <head><title>; puts "This is a test"; puts "joe"; <h>; puts "bob"; </title></head>
 <body bgcolor="#FFFFFF" text="#000000">
 puts "This is a test"
 </body>
 </html>