#nullable enable

#region
var _input = Array.Empty<string>();
var _iter = 0;
string String()
{
    while (_iter >= _input.Length) (_input, _iter) = (Console.ReadLine()!.Split(' '), 0);
    return _input[_iter++];
}
T I<T>() where T : IParsable<T> => T.Parse(String(), null);
#endregion

T[] Range<T>(int n, Func<T> F) => Enumerable.Range(0, n).Select(_ => F()).ToArray();
string Join<T>(IEnumerable<T> values, bool ws = false) => string.Join(ws ? " " : Environment.NewLine, values);

long[] Solve()
{
    var n = I<int>();
    var q = I<int>();
    var az = Range(n, I<int>);
    var sz = new int[30, n + 1];
    for (var i = 0; i < 30; i++)
    {
        var f = 1 << i;
        for (var j = 1; j <= n; j++)
        {
            var a = az[j - 1];
            if ((a & f) > 0) sz[i, j]++;
        }
        for (var j = 1; j <= n; j++) sz[i, j] += sz[i, j - 1];
    }
    var ans = new long[q];
    for (var i = 0; i < q; i++)
    {
        var l = I<int>() - 1;
        var r = I<int>();
        for (var j = 0; j < 30; j++)
        {
            var c1 = sz[j, r] - sz[j, l];
            var c0 = r - l - c1;
            ans[i] += (1L << j) * c0 * c1;
        }
    }
    return ans;
}

string Run()
{
    var ans = Solve();
    return Join(ans);
}

Console.WriteLine(Join(Range(1, Run)));