J=Compile[{u,v},Block[{z=u+I*v,k=0},While[Abs[z]<99&&k<50,z=z^2-.12+.74I;++k];k]];
DensityPlot[50-J[u,v],{u,-1,1},{v,-1,1},PlotPoints->100,Mesh->False];

