my $n = 4;
my $mat1 = "PW";
my $t1 = "0.0077";
my $ort1 = "45";
my $mat2 = "PW";
my $t2 = "0.0077";
my $ort2 = "45";
my $mat3 = "8HS";
my $t3 = "0.0147";
my $ort3 = "0";
my $mat4 = "PW";
my $t4 = "0.0077";
my $ort4 = "0";