program y502
    implicit none
    integer(8)::n,i,ans
    read*,n
    if(n>=10**9+7)then
        print'(i0)',0
    else
        ans=1
        do i=2,n
            ans=ans*i
            ans=mod(ans,10**9+7)
        end do
        print'(i0)',ans
    end if
end program y502