#include<iomanip>
#include<limits>
#include<thread>
#include<utility>
#include<iostream>
#include<string>
#include<algorithm>
#include<set>
#include<map>
#include<vector>
#include<stack>
#include<queue>
#include<cmath>
#include<numeric>
#include<cassert>
#include<random>
#include<chrono>
#include<unordered_set>
#include<unordered_map>
#include<fstream>
#include<list>
#include<functional>
#include<bitset>
#include<complex>
#include<tuple>
using namespace std;
typedef unsigned long long int ull;
typedef long long int ll;
typedef pair<ll,ll> pll;
typedef pair<int,int> pi;
typedef pair<double,double> pd;
typedef pair<double,ll> pdl;
#define F first
#define S second
const ll E=1e18+7;
const ll MOD=1000000007;

template <typename T,typename E>
struct SegmentTree{
    using F = function<T(T,T)>;
    using G = function<T(T,E)>;
    using H = function<E(E,E)>;
    int n,height;
    F f;
    G g;
    H h;
    T ti;
    E ei;
    vector<T> dat;
    vector<E> laz;
    SegmentTree(F f,G g,H h,T ti,E ei):
    f(f),g(g),h(h),ti(ti),ei(ei){}
    
    void init(int n_){
        n=1;height=0;
        while(n<n_) n<<=1,height++;
        dat.assign(2*n,ti);
        laz.assign(2*n,ei);
    }
    void build(const vector<T> &v){
        int n_=v.size();
        init(n_);
        for(int i=0;i<n_;i++) dat[n+i]=v[i];
        for(int i=n-1;i;i--)
            dat[i]=f(dat[(i<<1)|0],dat[(i<<1)|1]);
    }
    inline T reflect(int k){
        return laz[k]==ei?dat[k]:g(dat[k],laz[k]);
    }
    inline void eval(int k){
        if(laz[k]==ei) return;
        laz[(k<<1)|0]=h(laz[(k<<1)|0],laz[k]);
        laz[(k<<1)|1]=h(laz[(k<<1)|1],laz[k]);
        dat[k]=reflect(k);
        laz[k]=ei;
    }
    inline void thrust(int k){
        for(int i=height;i;i--) eval(k>>i);
    }
    inline void recalc(int k){
        while(k>>=1)
            dat[k]=f(reflect((k<<1)|0),reflect((k<<1)|1));
    }
    void update(int a,int b,E x){
        thrust(a+=n);
        thrust(b+=n-1);
        for(int l=a,r=b+1;l<r;l>>=1,r>>=1){
            if(l&1) laz[l]=h(laz[l],x),l++;
            if(r&1) --r,laz[r]=h(laz[r],x);
        }
        recalc(a);
        recalc(b);
    }
    void set_val(int a,T x){
        thrust(a+=n);
        dat[a]=x;laz[a]=ei;
        recalc(a);
    }
    T query(int a,int b){
        thrust(a+=n);
        thrust(b+=n-1);
        T vl=ti,vr=ti;
        for(int l=a,r=b+1;l<r;l>>=1,r>>=1) {
            if(l&1) vl=f(vl,reflect(l++));
            if(r&1) vr=f(reflect(--r),vr);
        }
        return f(vl,vr);
    }
};

ll gcd(ll a,ll b){return a%b==0?b:gcd(b,a%b);}

pll Ex_gcd(ll a,ll b){
    if(b==0){return {1,0};}
    pll ret=Ex_gcd(b,a%b);
    ret.F-=a/b*ret.S;
    return {ret.S,ret.F};
}

ll R(ll a){
    ll ret=Ex_gcd(a,MOD).F;
    ret%=MOD;
    if(ret<0){ret+=MOD;}
    return ret;
}

int main(){
    ll n,q;
    cin>>n>>q;
    vector<ll> a(n);
    for(auto &I:a){cin>>I; I--;}
    
    vector<ll> b(n,-1);
    vector<ll> s(n,0);
    vector<ll> c(n,0);
    ll num=0;
    for(int i=0;i<n;i++){
        if(b[i]==-1){
            ll w=i;
            do{
                s[num]+=a[w]+1; s[num]%=MOD;
                c[num]++;
                b[w]=num;
                w=a[w];
            }while(w!=i);
            num++;
        }
    }
    
    vector<ll> d=b;
    for(int i=0;i<n;i++){
        ll k=b[i];
        b[i]=s[k]*R(c[k])%MOD;
    }
    
    auto f=[](ll a,ll b){return (a+b)%MOD;};
    auto g=[](ll a,ll b){return (a+b)%MOD;};
    auto h=[](ll a,ll b){return (a+b)%MOD;};
    SegmentTree<ll,ll> T(f,g,h,0,0);
    T.build(b);
    
    for(int i=0;i<n;i++){d[i]=c[d[i]];}
    auto f2=[](ll a,ll b){return a/gcd(a,b)*b;};
    auto g2=[](ll a,ll b){return a/gcd(a,b)*b;};
    auto h2=[](ll a,ll b){return a/gcd(a,b)*b;};
    SegmentTree<ll,ll> T2(f2,g2,h2,1,1);
    T2.build(d);
    
    while(q--){
        ll l,r;
        cin>>l>>r;
        l--;
        ll ans=T.query(l,r);
        ans*=T2.query(l,r)%MOD;
        ans%=MOD;
        cout<<ans<<endl;
    }
    
    
    return 0;
}



Measured memory_bytes: 15048