Mathematica code

by Marco Livi