module baum(bh=25,tr=5,l=5,a=30,bc=4,$fn=10){
    if(l>0){
        cylinder(h=bh,d=tr);
        translate([0,0,bh]){
            sphere(d=tr);
            for(i=[0:(bc-1)])
                rotate([0,0,i*(360/bc)])
                rotate([a,0,0])
                    baum(bh*0.95,tr*0.75,l-1,a,bc);
        }
    }
}
    
baum(l=6);