INTEGER U(10)
      DO 10 K=1,6
      LLK=K
      LIM=K
      DO 10 I=1,LIM
      J=I
   10 U(J)=K
      END