Added in mathematica the dephasing spin chain ORASI