--- /dev/null
+beziercurve w1 5 0 0 0 20 0 0 20 5 0 25 10 0 10 20 0
+mkedge w1 w1
+polyline w2 10 20 0 0 0 0
+wire w w1 w2
+mkplane w w
+prism s w 0 2 10
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_4 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 106172