puts "CTS21801"
puts "cut"
puts ""

pcylinder c1 20 100
pcylinder c2 20 100
ttranslate c2 0 0 50

bcut result c1 c2

set square 8796.46
