Plot[ProductLog[Exp[x]], {x,-1000, 1000}]