restore [locate_data_file E_long.rle] E
nexplode E f

profile cont S E_10 F 50 -100 X 50 Y -100 X -50
featdprism E cont E_10 10 0 1
featperform dprism result E_10 E_5

set square 977669