n=1000;n0=100;c=-0.12256117+0.74486177 I;
f[z_]:=(2 Random[Integer]-1) Sqrt[z-c];
z0=Nest[f,0,n0];
t:=NestList[f,z0,n];
tt={};Do[tt=Join[tt,t],{20}];
ttt=Transpose[{Re[tt],Im[tt]}];
bild=ListPlot[ttt,PlotStyle->PointSize[0.005],
      ImageSize->{400,300}];