restore [locate_data_file OCC37.brep] sh
explode sh

bop sh_1 sh_2
bopfuse result

set square 665013