Problem: You are a student looking for a job. Today you had an employment examination for an IT company. They asked you to write an efficient program to perform several operations. First, they showed you an N \times N square matrix and a list of operations. All operations but one modify the matrix, and the last operation outputs the character in a specified cell. Please remember that you need to output the final matrix after you finish all the operations.

Followings are the detail of the operations:

WR r c v
(Write operation) write a integer v into the cell (r,c) (1 \leq v \leq 1,000,000)
CP r1 c1 r2 c2
(Copy operation) copy a character in the cell (r1,c1) into the cell (r2,c2)
SR r1 r2
(Swap Row operation) swap the r1-th row and r2-th row
SC c1 c2
(Swap Column operation) swap the c1-th column and c2-th column
RL
(Rotate Left operation) rotate the whole matrix in counter-clockwise direction by 90 degrees
RR
(Rotate Right operation) rotate the whole matrix in clockwise direction by 90 degrees
RH
(Reflect Horizontal operation) reverse the order of the rows
RV
(Reflect Vertical operation) reverse the order of the columns



Input

First line of each testcase contains nine integers. First two integers in the line, N and Q, indicate the size of matrix and the number of queries, respectively (1 \leq N,Q \leq 40,000). Next three integers, A B, and C, are coefficients to calculate values in initial matrix (1 \leq A,B,C \leq 1,000,000), and they are used as follows: A_{r,c} = (r * A + c * B) mod C where r and c are row and column indices, respectively (1\leq r,c\leq N). Last four integers, D, E, F, and G, are coefficients to compute the final hash value mentioned in the next section (1 \leq D \leq E \leq N, 1 \leq F \leq G \leq N, E - D \leq 1,000, G - F \leq 1,000). Each of next Q lines contains one operation in the format as described above.

Output

Output a hash value h computed from the final matrix B by using following pseudo source code.


h <- 314159265
for r = D...E
for c = F...G
h <- (31 * h + B_{r,c}) mod 1,000,000,007


where "<-" is a destructive assignment operator, "for i = S...T" indicates a loop for i from S to T (both inclusive), and "mod" is a remainder operation.

Examples

Input

2 1 3 6 12 1 2 1 2
WR 1 1 1


Output

676573821


Input

2 1 3 6 12 1 2 1 2
RL


Output

676636559


Input

2 1 3 6 12 1 2 1 2
RH


Output

676547189


Input

39989 6 999983 999979 999961 1 1000 1 1000
SR 1 39989
SC 1 39989
RL
RH
RR
RV


Output

458797120

Solution (in CPP):

Solution:
#include<bits/stdc++.h>
using namespace std;
using Int = long long;

signed main(){  
  cin.tie(0);
  ios::sync_with_stdio(0);
  Int n,q,a,b,c,d,e,f,g;
  cin>>n>>q>>a>>b>>c>>d>>e>>f>>g;
  using P = pair<Int, Int>;
  map<P, Int> mp;
  auto val=[&](Int y,Int x){
    if(x>y) swap(x,y);
    return ((y-n)*a+x*b)%c;
  };
  auto calc=[&](Int y,Int x){
    //cout<<y<<":"<<x<<endl;
    if(mp.count(minmax(y,x))) return mp[minmax(y,x)];
    else return val(y,x);
  };

  vector<Int> vx(n),vy(n);
  iota(vx.begin(),vx.end(),1);
  iota(vy.begin(),vy.end(),n+1);
  //for(Int i=0;i<n;i++) cout<<"vx:"<<i<<vx[i]<<endl;
  //for(Int i=0;i<n;i++) cout<<"vy:"<<i<<vy[i]<<endl;

  using It = vector<Int>::iterator;
  It px=vx.begin();
  It qx=--vx.end();
  It py=vy.begin();
  It qy=--vy.end();

  auto conv=[&](It it,Int x){
    if(it==--vx.end()||it==--vy.end()) return it-x;
    return it+x;
  }; 
  
  for(Int i=0;i<q;i++){
    string s;
    cin>>s;
    if(s=="WR"){
      Int r,c,v;
      cin>>r>>c>>v;
      r--;c--;
      mp[minmax(*conv(py,r),*conv(px,c))]=v;
    }
    if(s=="CP"){
      Int r1,c1,r2,c2;
      cin>>r1>>c1>>r2>>c2;
      r1--;c1--;r2--;c2--;
      mp[minmax(*conv(py,r2),*conv(px,c2))]=calc(*conv(py,r1),*conv(px,c1));
    }
    if(s=="SR"){
      Int r1,r2;
      cin>>r1>>r2;r1--;r2--;
      auto sy=(py<qy?py:qy);
      if(sy==vx.begin())
	swap(vx[conv(py,r1)-sy],vx[conv(py,r2)-sy]);
      else
	swap(vy[conv(py,r1)-sy],vy[conv(py,r2)-sy]);
    }
    if(s=="SC"){
      Int c1,c2;
      cin>>c1>>c2;c1--;c2--;
      auto sx=(px<qx?px:qx);
      if(sx==vx.begin())
	swap(vx[conv(px,c1)-sx],vx[conv(px,c2)-sx]);
      else
	swap(vy[conv(px,c1)-sx],vy[conv(px,c2)-sx]);
    }
    if(s=="RL"){
      It bpx=px,bqx=qx,bpy=py,bqy=qy;
      px=bpy;
      qx=bqy;
      py=bqx;
      qy=bpx;
    }
    if(s=="RR"){
      It bpx=px,bqx=qx,bpy=py,bqy=qy;
      px=bqy;
      qx=bpy;
      py=bpx;
      qy=bqx;
    }
    if(s=="RH"){
      swap(py,qy);
    }    
    if(s=="RV"){
      swap(px,qx);
    }
  }

  const Int MOD = 1e9+7;
  d--;f--;
  Int ans=314159265;
  for(Int i=d;i<e;i++)
    for(Int j=f;j<g;j++)
      ans=(ans*31+calc(*conv(py,i),*conv(px,j)))%MOD;
  cout<<ans<<endl;
  return 0;
}