#!/usr/bin/perl
use strict;
my $top="
<HTML>
<HEAD>
<TITLE>
Rational Models of Representations of Weyl groups</TITLE>
</HEAD>
<BODY  BGCOLOR=white>
<CENTER><H2>Rational Normal Models of Representations of Weyl groups</H2></CENTER>
<P>
Here are rational seminormal models of the following Weyl groups.
These files are extracted from John Stembridge's 
<A HREF=http://www.math.lsa.umich.edu/~jrs/data/models>Hereditary Models for Weyl Groups</A>. 
See that page for much more information, including numbering of the representations.
<P>
To access John's models directly you need to <A HREF=\"http://www.math.lsa.umich.edu/~jrs/data/models#II\">download</A> and run his Maple program and data files.

";


print $top;

my @dirs;

opendir(DIR,'.')||die("Can't open");
my @dirs= grep {/^[A-G0-9]*$/} readdir(DIR);
@dirs=sort {$a cmp $b} @dirs;
closedir(DIR);
print "<UL>";
foreach my $type (qw(A B D E F G)){
    print "<LI><STRONG>$type</STRONG>: ";
    my @mydirs= grep {/$type/} @dirs;
    foreach my $dir (@mydirs){
#	$dir=s/[A-G]+//g;
	print "<A HREF=$dir>$dir</A>&nbsp;";
    }
}

open(IN,"<body");
foreach  (<IN>){
    print;
}
close(IN);


