implicit none
      include "DIMENSIONS"
c      integer maxperm,maxsym
c      parameter (maxperm=3628800)
c      parameter (maxsym=10)
      integer i,j,nsym,nperm,tabperm(maxsym,maxperm)
      read (*,*) nsym
      call permut(nsym,nperm,tabperm)
      print *,"nperm",nperm
      do i=1,nperm
        print '(i3,2x,100i3)',i,(tabperm(j,i),j=1,nsym)
      enddo
      end