#include <bits/stdc++.h>
using namespace std;
#define N 500005
#define LIM 1000005
#define ll long long
#define gc() (P1==P2 && (P2=(P1=buf)+fread(buf,1,LIM,stdin),P1==P2)?EOF:*P1++)
#define set(a,vl) memset(a,vl,sizeof(a))
char *P1,*P2,buf[LIM];
int n,m,B,a[N],rv[N],bl[N],L[N],R[N];ll nw,ans[N];bool vs[N];
struct Query {int id,l,r;}b[N];struct Node {int pr,sf;}ls[N];
int abs(int x) {return x<0?-x:x;}
int rd()
{
	int res=0;char c=0;while(!isdigit(c)) c=gc();
	while(isdigit(c)) res=res*10+c-48,c=gc();return res;
}
bool cmp(Query x,Query y) {return bl[x.l]==bl[y.l]?x.r>y.r:bl[x.l]<bl[y.l];}
void init()
{
	B=n/sqrt(m);
	for(int i=1;i<=n;++i)
	{bl[i]=(i-1)/B+1;if(bl[i]>bl[i-1]) L[bl[i]]=i;R[bl[i]]=i;}
}
void build(int x)
{
	int lst=0;nw=0;set(vs,0);for(int i=L[x];i<=n;++i) vs[a[i]]=1;
	for(int i=1;i<=n;++i) if(vs[i])
	{
		ls[i]=(Node) {0,0};
		if(lst) ls[lst].sf=i,ls[i].pr=lst,nw+=abs(rv[i]-rv[lst]);lst=i;
	}
}
void dlt(int x)
{
	int pr=ls[x].pr,sf=ls[x].sf;if(pr) ls[pr].sf=sf;if(sf) ls[sf].pr=pr;
	if(pr) nw-=abs(rv[x]-rv[pr]);if(sf) nw-=abs(rv[x]-rv[sf]);
	if(pr && sf) nw+=abs(rv[pr]-rv[sf]);
}
void rev(int x)
{
	int pr=ls[x].pr,sf=ls[x].sf;if(pr) ls[pr].sf=x;if(sf) ls[sf].pr=x;
	if(pr) nw+=abs(rv[x]-rv[pr]);if(sf) nw+=abs(rv[x]-rv[sf]);
	if(pr && sf) nw-=abs(rv[pr]-rv[sf]);
}
void slv(int x,int &y)
{
	int r=n;build(x);
	while(y<=m && bl[b[y].l]==x)
	{
		while(r>b[y].r) dlt(a[r--]);for(int i=L[x];i<b[y].l;++i) dlt(a[i]);
		ans[b[y].id]=nw;for(int i=b[y].l-1;i>=L[x];--i) rev(a[i]);++y;
	}
}
void print(ll x)
{if(x<10) {putchar(x+48);return;}print(x/10);putchar(x%10+48);}
int main()
{
	n=rd();m=rd();init();for(int i=1;i<=n;++i) a[i]=rd(),rv[a[i]]=i;
	for(int i=1;i<=m;++i) b[i].id=i,b[i].l=rd(),b[i].r=rd();
	sort(b+1,b+m+1,cmp);for(int i=1,j=1;i<=bl[n];++i) slv(i,j);
	for(int i=1;i<=m;++i) print(ans[i]),puts("");return 0;
}