box b1 4 4 4
pcylinder b2 1 4
ttranslate b2 1 1 4

bop b1 b2
bopcommon result

set square empty