box b 10 10 10

box c 4 4 4 
ttranslate c 3 3 6
bop b c
bopfuse rr

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

bop rr p1
bopfuse result


set square 664