# Unwritten elements used in this example, however they will be soon.

  my $tab = 0;
  my @list = (
    ['red,    { style => 'color:#ff0000' }],
    ['green', { style => 'color:#00ff00' }],
    ['blue',  { style => 'color:#0000ff' }]
  );
  
  html($tab, sub {
    head($tab, sub {
      title($tab, 'My page title');
    });
    body($tab, sub {
      div($tab, sub {
        heading($tab, 1, 'My sample heading', { id => 'sample_heading', style => 'color:#666666' });
        paragraph($tab, 'A sample paragraph so you can see how this works.');
        list($tab, \@list, { id => 'colors' }); # list items will get tabbed.
        paragraph($tab, 'Another paragraph for you');
        heading($tab, 1, 'A second sample heading');
      }, { class => 'div_class' });
      paragraph($tab, 'Some end remarks.', { id => 'end_remarks', class => 'remarks' });
    });
  });

##</code><code>##

  my $tab = 0;

  html($tab, sub {
    $tab++;
    head($tab, sub {
      $tab++;
      title($tab, 'My page title');
      $tab--;
    });
    body($tab, sub {
      $tab++;
      div($tab, sub {
        $tab++;
        heading($tab, 1, 'My sample heading', { id => 'sample_heading', style => 'color:#666666' });
        $tab++;
        paragraph($tab, 'A sample paragraph so you can see how this works.');
        list($tab, \@list, { id => 'colors' });
        paragraph($tab, 'Another paragraph for you');
        $tab--;
        heading($tab, 1, 'A second sample heading');
        $tab--;
      }, { class => 'div_class' });
      paragraph($tab, 'Some end remarks.', { id => 'end_remarks', class => 'remarks' });
      $tab--;
    });
    $tab--;
  });