a = 10;
m = 10;

Point(1) = {0,0,0,m};

Extrude {a,0,0} {
  Point{1};
  Layers {{1},{1.0}};
}
Extrude {0,a,0} {
  Line{1};
  Layers {{1},{1.0}};
}

bottom[] =
Extrude {0,0,-a} {
  Surface{5};
  Layers {{1},{1.0}};
}
;

top[] =
Extrude {0,0,a} {
  Surface{5};
}
;

Delete{ Volume{top[1]}; }
Surface Loop(100) = {36,-5,40,44,48,49};
Volume(100) = {100};

Physical Surface(50) = {27};
Physical Surface(51) = {5};
Physical Surface(52) = {49};
Physical Surface(53) = {14,36};
Physical Surface(54) = {22,44};
Physical Surface(55) = {26,48};
Physical Surface(56) = {18,40};

v1 = newreg;
Physical Volume(v1) = {bottom[1]};
v2 = newreg;
Physical Volume(v2) = {100};
