box b 10 10 10

box c 4 4 4 
ttranslate c 0 0 2

bfuse rr b c

restore [locate_data_file E1_rr_7.brep] E1_rr_7
prism p1 E1_rr_7 0 4 0

explode rr so

bop rr_1 p1
bopfuse result

set square 600