print <<EOT;
                 <tr $style>
                     <td>$autor</td>
                     <td></td>
                     <td rowspan=2 valign=top>$vendor</td>
                     <td rowspan=2 valign=top></td>
                     <td rowspan=2 valign=top align=center>$year</td>
                     <td rowspan=2 valign=top></td>
                     <td rowspan=2 valign=top>R\$&nbsp;$price</td>
                     
                     ...
EOT