1profile p x 4 y 1 x -3 y 3 x 3 y 1 x -4
2prism pr p 0 0 1
3explode pr f
4profile pp x 0.5 y 0.5 x -0.5 y -0.5
5trotate pp 0 0 0 1 0 0 90
6ttranslate pp 3 0 0
7
8featprism pr pp pr_1 0 1 0 0 1
9featperform prism result pr_7
10
11checkprops result -s 47
12