puts "CTS21801" puts "section" puts "" pcylinder c1 20 100 pcylinder c2 20 100 ttranslate c2 0 0 50 bsection result c1 c2 set length 301.327