#!/usr/bin/perl

@the_dirs = (3, 4, 6, 9, 12, 17, 18, 19, 21, 22, 23, 27, 29, 31, 33, 34, 36, 39, 43, 45, 46, 47, 49, 52, 53, 54, 55, 58, 62, 63, 64, 66, 68, 69, 74 );

foreach $dirnum( @the_dirs) {
	if( $dirnum < 10) {
		$dirname = "sep0".$dirnum;
	} else {
		$dirname = "sep".$dirnum;	
	}
	system("cd $dirname ; ../thesis_page.pl ; cd ..");
}

exit( 0);