#! /usr/local/bin/perl

for (1..22,qw(X Y NA UL)) {
	open OUT,">$_/index.shtml";
	print OUT "<!--#include file='gps.shtml'-->\n";
	print OUT "<!--#set var='head' value='<TR><TD colspan=3><H1>HGP Working Draft Statistics</H1><HR><B>Chromosome $_</B></TD></TR>'-->\n";
	print OUT "<!--#include virtual='/goldenPath/include/statview.shtml'-->\n";
	close OUT;
	}