puts "========================"
restore [locate_data_file buc60775a.brep] a
-puts [checkshape a]
+checkshape a
restore [locate_data_file buc60775b.brep] b
-puts [checkshape b]
+checkshape b
bcut result a b
-puts [checkshape result]
+checkshape result
set nf [llength [explode result f]]
if {$nf < 6} {