1695 FOR K=1 TO LC