// input code here
```var
 m,n,i,x,y,z,ans:longint;
 a,c:array[1..100000] of longint;
begin
 readln(n,m);
 for i:=1 to n do read(a[i]);
 readln;
 for i:=1 to n do read(c[i]);
 
 for x:=1 to n-2 do
  for y:=x+1 to n-1 do 
   begin
    z:=2*y-x;
    if (z<=n) and (c[x]=c[z]) then ans:=(ans+(a[x]+a[z])*(x+z)) mod 10007;
   end;
   
 writeln(ans);
end.