puts "hkg60159"
puts "Fuse"
puts ""
dall

restore [locate_data_file CFE900_hkg60gcr.rle] sh
restore [locate_data_file hkg60159_face.rle] ct

prism pr ct 0 -30 0
bcut res pr sh

explode res

bfuse res2 sh res_2

bfuse result sh res_3


set square 3734.83