NestList[(# + abs(#))/2 &, 4exp(i pi/6.), 10]