Piecewise[{{1 - a, a <= 0}, {a - 1, a >= E}}, 2 a ProductLog[a] + 2 (a/ProductLog[a]) - 3 a - 1]