#include<cstdio>
#include<algorithm>
#include<vector>
#include<cstring>
using namespace std;

#define NDEBUG
#include<cassert>

namespace Elaina{
    #define rep(i, l, r) for(int i=(l), i##_end_=(r); i<=i##_end_; ++i)
    #define drep(i, l, r) for(int i=(l), i##_end_=(r); i>=i##_end_; --i)
    #define fi first
    #define se second
    #define mp(a, b) make_pair(a, b)
    #define Endl putchar('\n')
    #define mmset(a, b) memset(a, b, sizeof a)
    // #define int long long
    typedef long long ll;
    typedef unsigned long long ull;
    typedef pair<int, int> pii;
    typedef pair<ll, ll> pll;
    template<class T>inline T fab(T x){ return x<0? -x: x; }
    template<class T>inline void getmin(T& x, const T rhs){ x=min(x, rhs); }
    template<class T>inline void getmax(T& x, const T rhs){ x=max(x, rhs); }
    template<class T>inline T readin(T x){
        x=0; int f=0; char c;
        while((c=getchar())<'0' || '9'<c) if(c=='-') f=1;
        for(x=(c^48); '0'<=(c=getchar()) && c<='9'; x=(x<<1)+(x<<3)+(c^48));
        return f? -x: x;
    }
    template<class T>inline void writc(T x, char s='\n'){
        static int fwri_sta[1005], fwri_ed=0;
        if(x<0) putchar('-'), x=-x;
        do fwri_sta[++fwri_ed]=x%10, x/=10; while(x);
        while(putchar(fwri_sta[fwri_ed--]^48), fwri_ed);
        putchar(s);
    }
}
using namespace Elaina;

const int maxn=1e6;
const int mod=1e8+7;

inline int qkpow(int a, int n){
    int ret=1;
    for(; n>0; n>>=1, a=1ll*a*a%mod)
        if(n&1) ret=1ll*ret*a%mod;
    return ret;
}

int n, m, S, fac=1;
int f[maxn+5], A[maxn+5];

signed main(){
    n=readin(1), m=readin(1);
    S=(qkpow(2, n)+mod-1)%mod;
    f[0]=1, f[1]=0, A[0]=1;
    for(int i=1; i<=m; ++i)
        A[i]=1ll*A[i-1]*(S+mod-i+1)%mod;
    for(int i=2; i<=m; ++i){
        f[i]=(A[i-1]+mod-f[i-1]+mod-1ll*(i-1)*(S+mod-i+2)%mod*f[i-2]%mod)%mod;
        fac=1ll*fac*i%mod;
        // printf("f[%d] == %d, fac == %d\n", i, f[i], fac);
    }
    writc(1ll*f[m]*qkpow(fac, mod-2)%mod);
    return 0;
}