Article	Listing 1	Listing 2	Listing 3	Listing 4
Listing 5	jul2000.tar

Listing 4: Tcl inside of HTML

<? set mesg "Hello, World!" ?>
    
<HTML>
    <!-- example of Tcl -->

<HEAD><TITLE>Sample HTML Test File</TITLE></HEAD>
<BODY>
<CENTER>
    <?
        for {set i 1} {$i<=6} {incr i 1} {
           puts "<h${i}> $mesg </h${i}>\n";
        }
        
    ?>
</CENTER>
</BODY>
</HTML>