%RSCHRI4 Repeated symbolic modification by linear divisors
%
function ab=rschri4(N,m,ab0,z,rho0)
if m<0, error('m out of range'), end
ab=ab0;
if m==0, return, end
for im=1:m
  ab0=ab;
  ab=schri4(N,ab0,z(im),rho0(im));
end
