[$ sub yyyy $]

   [- ($self) = @_; -]

[$ endsub $]

[$ sub xxxx $]

   [- ($self) = @_; -]

   <TABLE>

   <TR>
      <TD>
<TABLE>
    <TR>
       <TD>
  [- $x = 1; -]
  [$ while $x < 10 $]
    [+ $x +]
    [- $x += 1; -]
  [$ endwhile $]
       </TD>
    </TR>
</TABLE>
      </TD>

      <TD>
<TABLE>
    <TR>
       <TD>
           <TABLE>
[- $self->yyyy(); -]
   </TABLE>
       </TD>
    </TR>
         </TABLE>
      </TD>

   </TR>
   </TABLE>

[$ endsub $]


[- xxxx (__PACKAGE__) -]