mlr[z$w_] := Module[{a, b, c, d, e, f, g, h, s, t}, (t = Denominator[z$w]; 
        {a,b,c,d,e,f,g,h}=t; s = LCM[a, b, c,d,e,f,g]; Return[s]; Null)]