beziercurve w 3 0 0 0 5 10 0 10 15 0
mkedge w w
wire w w
polyline profile 0 0 0  10 0 0  10 0 10  0 0 10  0 0 0
mkplane profile profile
pipe s w profile
tscale s 0 0 0 SCALE1
fsameparameter s SCALE1*1.e-7
explode s E
mkevol result s
updatevol s_5 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
buildevol

checkprops result -s 81299.7