restore [locate_data_file case_4_solid.brep] a
restore [locate_data_file case_4_wire3.brep] b
bop a b
bopcommon result
checkprops result -l 633.071
checksection result
set nbsh_v 9
set nbsh_e 7