restore [locate_data_file case_4_shell.brep] a
restore [locate_data_file case_4_edge1.brep] b
bcut result b a
checkprops result -l 616.124
checksection result
set nbsh_v 8
set nbsh_e 4