# http://yukicoder.me/submissions/11671 参考
def pow(a,b,mod)
(a.abs<1)?0:(b<1)?1:(b%2<1)?(pow(a*a%mod,b/2,mod)%mod):a*pow(a,b-1,mod)%mod
end
mod=1000000007
MaxBit=64
Md=[d=1]
Me=[e=1]
Mf=[f=0]
(MaxBit-1).times{
  Md<< t=(d*d+e*e)%mod
  Me<< u=(d*e+e*f)%mod
  Mf<< v=(e*e+f*f)%mod
  d,e,f=t,u,v
}
def fib(n,mod)
  MaxBit.times.inject([0,1]){|(a,b),i|
    n[i]>0?[(a*Md[i]+b*Me[i])%mod,(a*Me[i]+b*Mf[i])%mod]:[a,b]
  }[0]
end
gets
p $<.inject(1){|s,r|
  c,d=r.split.map(&:to_i)
  s*pow(fib(c+2,mod),d%(mod-1),mod)%mod
}