ContourPlot[Abs[ProductLog[0, x + I y]], {x, -3, 3}, {y, -3, 3}]