//hgs AK IOI,IMO,ICHO,IPHO

 #include<bits/stdc++.h>

 #define int long long

 #define writeln(x)  write(x),puts("")

 #define writep(x)   write(x),putchar(' ')

 using namespace std;

 inline int read(){

     int ans=,f=;char chr=getchar();

     while(!isdigit(chr)){if(chr=='-') f=-;chr=getchar();}

     while(isdigit(chr)){ans=(ans<<)+(ans<<)+chr-;chr=getchar();}

     return ans*f;

 }void write(int x){

     if(x<) putchar('-'),x=-x;

     if(x>) write(x/);

     putchar(x%+'');

 }const int M = 3e5+;

 int n,m,a[M],pos[M],pre[M],b[M],len,Ans[M];

 struct Que{int l,r,id;}q[M];

 bool cmp(const Que&x,const Que&y){return x.r<y.r;}

 int s[M];

 #define lowbit(x) (x&-x)

 inline void Update(int x,int y){if(x==)return;for(;x<=n;x+=lowbit(x))s[x]+=y;}

 inline int  Query (int x){int ans=;for(;x;x-=lowbit(x))ans+=s[x];return ans;}

 signed main(){

     int Time=read();

     while(Time--){memset(pre,,sizeof(pre)),memset(pos,,sizeof(pos));

         n=read();for(int i=;i<=n;++i)b[i]=a[i]=read();

         sort(b+,b+n+),len=unique(b+,b+n+)-b-;memset(s,,sizeof(s));

         for(int i=;i<=n;i++)a[i]=lower_bound(b+,b+len+,a[i])-b,pre[i]=pos[a[i]],pos[a[i]]=i;

         m=read();for(int i=;i<=m;++i)q[i].l=read(),q[i].r=read(),q[i].id=i;sort(q+,q+m+,cmp);

         for(int i=,j=;i<=m;i++){

             for(;j<=q[i].r;j++)Update(pre[j],-b[a[pre[j]]]),Update(j,b[a[j]]);

             Ans[q[i].id]=Query(q[i].r)-Query(q[i].l-);

         }for(int i=;i<=m;i++)printf("%lld\n",Ans[i]);

     }

     return ;

 }