Mathematica init.m file