testreadstep box.step a
testreadstep cylinders.step b

bclearobjects
bcleartools

chrono h reset start

baddobjects a

foreach s [explode b] {
  baddtools $s
}

bfillds
bbop r cut

chrono h stop show