How do I get the following into Mathematica, solving for a:

$$ 0.7 = 1 - \frac{2}{a} \times [ \frac{1}{a} \int_0^a \frac{x}{\exp(x)-1} dx + \frac{a}{6} - 1] $$

How do I get the following into Mathematica, solving for $a$:

$$ 0.7 = 1 - \frac{2}{a} \times \left[ \frac{1}{a} \int_0^a \frac{x}{\exp(x)-1}\mathrm dx + \frac{a}{6} - 1\right] $$

How do I get the following into Mathematica, solving for a:

$$ 0.7 = 1 - \frac{2}{a} * [ \frac{1}{a} \int_0^a \frac{x}{exp(x)-1} dx + \frac{a}{6} - 1] $$

How do I get the following into Mathematica, solving for a:

$$ 0.7 = 1 - \frac{2}{a} \times [ \frac{1}{a} \int_0^a \frac{x}{\exp(x)-1} dx + \frac{a}{6} - 1] $$