$fn=60;

B=5;
Dy=4;

module besen(L=20, H=0.8) {
  translate([0,L-Dy,0]) {
    translate([-2.5,0,0]) cube([B,Dy+3,H]);
    translate([0,Dy+1.5,H]) intersection() {
      scale([2,1,1]) sphere(d=2);
      translate([0,0,2]) cube(B-1, center=true);
    }
  }
  hull() {
    translate([-2.5,L-Dy,0]) cube([B,0.001,H]);
    //translate([-2,0,0]) cube([B-1,0.001,H]);
    scale([B-0.5,1,1]) cylinder(d=1);
  }
}

for(x=[0:5:250]) translate([x,0,0]) besen();