DSP style z^-n in Mathematica

To change a polynomial expression in z-domain from z^n to z^-n, modify the global variable $PrePrint:

$PrePrint = # /. {Power[z, n_] -> DisplayForm[SuperscriptBox[z, n]]} &;

Example usage: Linear model of the 2nd order delta-sigma modulator in z^-n form