4749 FOR M=1 TO L-1