4416 FOR M=1 TO L-1