box b 10 10 10 
copy b c
pcylinder s 2 4
ttranslate s 5 5 -2
bcut rr c s
explode rr so

bcut result c rr_1 

set square 50.2655