//+
SetFactory("OpenCASCADE");
Circle(1) = {0, -100, 0, 20, 0, 2*Pi};
//+
Curve Loop(1) = {1};
//+
Plane Surface(1) = {1};
//+
Physical Surface("Body", 2) = {1};