with Excel_Out; use Excel_Out;

procedure Small_demo is
  xl: Excel_Out_File;
begin
  xl.Create("Small.xls");
  xl.Put_Line("This is a small demo for Excel_Out");
  for row in 3 .. 8 loop
    for column in 1 .. 8 loop
      xl.Write(row, column, row * 1000 + column);
    end loop;
  end loop;
  xl.Close;
end Small_demo;