program main implicit none integer*8,parameter::C=2017 integer*8,parameter::N=C*C integer*8::res=1,X,i read *,X do i=1,C res = MOD(res * N, X) end do print '(i0)', MOD(res + C, X) end program main