beziercurve profile 6 0 10 0 -5 0 0 -5 -20 0 5 -20 0 5 0 0 0 10 0 
mkedge profile profile 
wire profile profile 
mkplane profile profile
ellipse w 0 80 0 1 0 0 200 80
mkedge w w
wire w w
pipe result w profile

checkprops result -s 43171.5