4175 FOR K=1 TO L