Untitled

-- Header
   put_line('<html xmlns:o="urn:schemas-microsoft-com:office:office"');
   put_line('xmlns:x="urn:schemas-microsoft-com:office:excel"');
   put_line('xmlns="http://www.w3.org/TR/REC-html40">');
   put_line('<head>');
   put_line('<meta http-equiv=Content-Type content="text/html; charset=windows-1252">');
   put_line('<meta name=ProgId content=Excel.Sheet>');
   put_line('<meta name=Generator content="Microsoft Excel 10">');
   put_line('<!--[if gte mso 9]><xml>');
   put_line(' <o:DocumentProperties>');
   put_line('  <o:LastAuthor>'||LOWER(USER)||'</o:LastAuthor>');
   put_line('  <o:LastSaved>'||v_lastSaved||'</o:LastSaved>');
   put_line('  <o:Version>10.6626</o:Version>');
   put_line(' </o:DocumentProperties>');
   put_line(' <o:OfficeDocumentSettings>');
   put_line('  <o:DownloadComponents/>');
   put_line(' </o:OfficeDocumentSettings>');
   put_line('</xml><![endif]-->');

   -- Style
   put_line('<style>');
   put_line('<!--');
   put_line('[if gte mso 9]><xml>');
   put_line('table');
   put_line(' {mso-displayed-decimal-separator:"\,";');
   put_line(' mso-displayed-thousand-separator:"\.";}');
   put_line('@page');
   put_line(' {margin:.98in .79in .98in .79in;');
   put_line(' mso-header-margin:.49in;');
   put_line(' mso-footer-margin:.49in;}');
   put_line('tr');
   put_line(' {mso-height-source:auto;}');
   put_line('col');
   put_line(' {mso-width-source:auto;}');
   put_line('br');
   put_line(' {mso-data-placement:same-cell;}');

   -- general sheet formating
   put_line('.style0');
   put_line(' {mso-number-format:General;');
   put_line(' text-align:general;');
   put_line(' vertical-align:top;');
   put_line(' mso-rotate:0;');
   put_line(' mso-background-source:auto;');
   put_line(' mso-pattern:auto;');
   put_line(' color:windowtext;');
   put_line(' mso-generic-font-family:auto;');
   put_line(' mso-font-charset:0;');
   put_line(' mso-protection:locked visible;');
   put_line(' mso-style-name:Standard;');
   put_line(' border-top:none;');
   put_line(' border-right:.5pt solid silver;');
   put_line(' border-bottom:.5pt solid silver;');
   put_line(' border-left:none;');
   put_line(' mso-style-id:0;}');

   -- general cell formating
   put_line('td');
   put_line(' {mso-style-parent:style0;');
   put_line(' mso-ignore:padding;');
   put_line(' mso-generic-font-family:auto;');
   put_line(' mso-number-format:General;}');

   -- cell with text
   put_line('.styleText '); --Text
   put_line(' {mso-style-parent:style0;');
   put_line(' vertical-align:top;');
   put_line(' white-space:normal;}');
   --
   put_line('-->');
   put_line('</style>');
   --
   put_line('</head>');
   put_line('<body>');
   put_line('<table x:str>');