3890 FOR M=1 TO 100