{ NOTE: it is recommended to use this even if you don't understand the following code }

const
    MAXQ = 1000000;

var
    N, Q, i : LongInt;
    S       : AnsiString;
    l, r    : Array[0..MAXQ-1] of LongInt;
    ans     : Array[0..MAXQ-1] of Int64;

begin
{
    uncomment the two following lines if you want to read/write from files
    assign(input,  'input.txt');  reset(input);
    assign(output, 'output.txt'); rewrite(output);
}

    ReadLn(N, Q);

    ReadLn(S);

    for i:=0 to Q-1 do
        ReadLn(l[i], r[i]);

    for i := 0 to MAXQ-1 do ans[i] := 0;

    { INSERT YOUR CODE HERE }


    for i:=0 to Q-1 do
        WriteLn(ans[i]);

end.