5966 FOR L=1 TO K