#include<stdio.h>
#include<string.h>
#include<ctype.h>
#include<math.h>
#include<iostream>
#include<string>
#include<set>
#include<map>
#include<vector>
#include<queue>
#include<bitset>
#include<algorithm>
#include<time.h>
using namespace std;
void fre(){freopen("c://test//input.in","r",stdin);freopen("c://test//output.out","w",stdout);}
#define MS(x,y) memset(x,y,sizeof(x))
#define MC(x,y) memcpy(x,y,sizeof(x))
#define MP(x,y) make_pair(x,y)
#define ls o<<1
#define rs o<<1|1
typedef long long LL;
typedef unsigned long long UL;
typedef unsigned int UI;
template <class T> inline void gmax(T &a,T b){if(b>a)a=b;}
template <class T> inline void gmin(T &a,T b){if(b<a)a=b;}
const int N=2e5+10,M=1e6+10,Z=1e9+7,ms63=1061109567;
int n,m;
LL v[N],ans[N];
int num[M];
struct A
{
int l,r,id,o;
bool operator < (const A& b)const
{
if(id!=b.id)return id<b.id;
return r<b.r;
}
}a[N];
LL ins(int p)
{
LL x=v[p];
++num[x];
return x*(num[x]*num[x]-(num[x]-1)*(num[x]-1));
}
LL del(int p)
{
LL x=v[p];
--num[x];
return x*(num[x]*num[x]-(num[x]+1)*(num[x]+1));
}
int main()
{
while(~scanf("%d%d",&n,&m))
{
MS(num,0);
int len=sqrt(n);
for(int i=1;i<=n;i++)scanf("%lld",&v[i]);
for(int i=1;i<=m;i++)
{
scanf("%d%d",&a[i].l,&a[i].r);
a[i].id=a[i].l/len;
a[i].o=i;
}
sort(a+1,a+m+1);
int l=a[1].l;
int r=l-1;
LL ANS=0;
for(int i=1;i<=m;i++)
{
while(l>a[i].l)ANS+=ins(--l);
while(r<a[i].r)ANS+=ins(++r);
while(l<a[i].l)ANS+=del(l++);
while(r>a[i].r)ANS+=del(r--);
ans[a[i].o]=ANS;
}
for(int i=1;i<=m;i++)printf("%lld\n",ans[i]);
}
return 0;
}