puts "================"
puts "BUC60803"
puts "OCC102"
puts "================"
puts ""

restore [locate_data_file buc60803a.brep] sh1 
puts [checkshape sh1]
restore [locate_data_file buc60803b.brep] sh2
puts [checkshape sh2]

bfuse result sh2 sh1

set square 1.86064e+07
set 2dviewer 0