puts "PRO15946"
puts "Fuse"
puts ""


restore [locate_data_file CFE900_uki60gfk.rle] base
restore [locate_data_file uki60919b.brep] cont

prism pr cont 0 0 -200

bcut res pr base
explode res

bfuse result base res_1

set square 64405.2