sub list {
  my ($tab, $list, $opt) = @_;

  my @attributes = build_attributes($opt, qw/id class style/);

  my $format = join ' ', q(), @attributes;