the_code_mathematica