#!/usr/sph/bin/perl

$names="a b c d e f g h i j k";
$nums=" 1 2 1 2 2 1 2 1 3 2 1";

@names=split(/ /,$names);
@nums=split(/ /,$nums);

system('mkdir material');

while (my $name = pop @names) {
    system("mkdir material/$name/");
    my $num  = pop @nums;
    print "$num \n";
    print "$name \n";
    print "$num \n";
    while ($num > 0) {
	system("mkdir material/$name/$num");
	print "$num \n";
	my $j=12;
	$j= int $j;
	while ($j > 0) {
	    if ($j > 9) {
		$stuff="material/$name/0$num/$j.jpg";
		system ("getimage.tcl $stuff > material/$name/$num/$j.jpg");
	    } else {
		$stuff="material/$name/0$num/0$j.jpg";
		system ("getimage.tcl $stuff > material/$name/$num/0$j.jpg");
	    }
	    print "$stuff\n";
	    $j--;
	}
	$num--;
    }
}