Mathematica stufff
Writup