DLS script

A DLS script for Mathematica, from Dirk.