Just a simple wolfram script