restore [locate_data_file case_9_wire.brep] a
restore [locate_data_file case_9_edge4.brep] b
bop a b
bopcut result
checkprops result -l 1045.95
checksection result
set nbsh_v 6
set nbsh_e 6