tempest mermaid vase

If you know how to program in OpenSCAD this is the base from which the vase was developed:

f(90);

module f(w){
difference()
{

cylinder(w,w,w,$fn=4);
#cylinder(w,w/1.5,0,$fn=4);

}
if(w>2){
for(i=[0:3])rotate([0,0,i*90])translate([w,0,0])f(w/2);

translate([0,0,w])f(w/2);}
}