COMMON J,K,L,E1(4)
      I=100000
      N6=210*I
      J=1                                                               SCK   69
      K=2                                                               SCK   70
      L=3                                                               SCK   71
      IF(N6)69,69,61                                                    SCK   72
   61 DO 68 I=1,N6,1                                                    SCK   73
      J=J*(K-J)*(L-K)                                                   SCK   74
      K=L*K-(L-J)*K                                                     SCK   75
      L=(L-K)*(K+J)                                                     SCK   76
      E1(L-1)=J+K+L                                                     SCK   77
      E1(K-1)=J*K*L                                                     SCK   78
   68 CONTINUE                                                          SCK   79
   69 CONTINUE                                                          SCK   80
      PRINT *,N6
      PRINT *,J
      PRINT *,K
      PRINT *,E1(1)
      PRINT *,E1(2)
      PRINT *,E1(3)
      PRINT *,E1(4)
      END