testreadstep box.step a
testreadstep cylinders.step b

chrono h reset start
copy r a
foreach s [explode b] {
  bcut r r $s
}
chrono h stop show