5987 FOR K=1 TO KN