#!/usr/bin/perl

for( my $c=1;$c<21;$c++) {
	$d = $c == 20 ? "X": $c;
	$d = "chr$d";
	system( "sdp.pl -datafile ../GENOTYPES/Contributed.$d.build33.genotypes.19042005.txt.gz -png Contributed.$d.png");
}
