program enigma1548
      integer :: m,a,y,i,g,n,e,k,s,r
      integer :: may,imagine,making,easy,enigma,easier

      do m=0,9
      if (m/=0) then
      do a=0,9
      if (a/=m) then
      do y=0,9
      if (y/=a.and.y/=m) then
      do i=0,9
      if (i/=0 .and.i/=y.and.i/=a.and.i/=m) then
      do g=0,9
      if (g/=i.and.g/=y.and.g/=a.and.g/=m) then
      do n=0,9
      if (n/=g.and.n/=i.and.n/=y.and.n/=a.and.n/=m) then
      do e=0,9
      if (e/=0 .and.e/=n.and.e/=g.and.e/=i.and.e/=y.and. &
      e/=a.and.e/=m) then
      do k=0,9
      if (k/=e.and.k/=n.and.k/=g.and.k/=i.and.k/=y.and. &
      k/=a.and.k/=m) then
      do s=0,9
      if (s/=k.and.s/=e.and.s/=n.and.s/=g.and.s/=i.and. &
      s/=y.and.s/=a.and.s/=m) then
      do r=0,9
      if (r/=s.and.r/=k.and.r/=e.and.r/=n.and.r/=g.and. &
      r/=i.and.r/=y.and.r/=a.and.r/=m) then

      may=100*m+10*a+y
      imagine=1000000*i+100000*m+10000*a+1000*g+100*i+10*n+e
      making=100000*m+10000*a+1000*k+100*i+10*n+g
      easy=1000*e+100*a+10*s+y
      enigma=100000*e+10000*n+1000*i+100*g+10*m+a
      easier=100000*e+10000*a+1000*s+100*i+10*e+r

      if (mod(may,3)==0 .and. mod(imagine,3)==0 .and. &
      mod(making,3)==0 .and. mod(easy,3)==0 .and. &
      mod(enigma,3)==0 .and. mod(easier,3)==0) then
      if (mod(may,2)==1 .and. mod(imagine,2)==1 .and. &
      mod(making,2)==1 .and. mod(easy,2)==1 .and. &
      mod(enigma,2)==1 .and. mod(easier,2)==1) then

      print *,may,imagine,making,easy,enigma,easier

      end if
      end if
      end if
      end do
      end if
      end do
      end if
      end do
      end if
      end do
      end if
      end do
      end if
      end do
      end if
      end do
      end if
      end do
      end if
      end do
      end if
      end do

      end program enigma1548