* Test
#+BEGIN_SRC mathematica
Manipulate[Plot[{x^{a-1}, E^{-x}}, {x, 0, 10}], {a, 0, 10}]
#+END_SRC

#+BEGIN_SRC mathematica
2+2
#+END_SRC

#+BEGIN_SRC mathematica
E^{-2}
#+END_SRC

Manipulate[Plot[{x^{a-1}, E^{-x}}, {x, 0, 10}], {a, 0, 10}]
2+2
E^{-2}