--- /dev/null
+restore E_long.rle E
+nexplode E face E_1 E_2 E_3 E_4 E_5 E_6 E_7 E_8 E_9 E_10 E_11 E_12 E_13 E_14
+
+profile cont S E_10 F 0 -100 X 50 Y -100 X -50
+mksurface sf E_5
+mkface ff sf
+mksurface su E_6
+mkface fu su
+featprism E cont E_10 0 0 1 1 1
+featperform prism result ff fu
+
+set square 980000