puts "PRO15946"
puts "Fuse"
puts ""


restore uki60919a.brep base
restore uki60919b.brep cont

prism pr cont 0 0 -200

bcut res pr base
explode res

bfuse result base res_1

set square 64405.2