#include <algorithm>
#include <array>
#include <bitset>
#include <cassert>
#include <cmath>
#include <cstdio>
#include <cstring>
#include <iomanip>
#include <iostream>
#include <iterator>
#include <map>
#include <memory>
#include <numeric>
#include <queue>
#include <set>
#include <stack>
#include <string>
#include <sstream>
#include <unordered_map>
#include <vector>


#define INF 4000000000000000000LL
#define MOD 1000000007
#define ALL(x) std::begin(x), std::end(x)


class modint_t;


modint_t modpow(modint_t x, long long y);


class modint_t {
  friend std::ostream& operator<<(std::ostream& ofs, const modint_t a);

public:
  modint_t(long long xx = 0) : x(xx % MOD) {};

public:
  long long get() {
    normalize();

    return x;
  };

public:
  bool operator==(modint_t a) const {
    return x == a.x;
  };

  bool operator!=(modint_t a) const {
    return ! (*this == a);
  };

public:
  modint_t operator+(const modint_t& a) const {
    return (x + a.x) % MOD;
  };

  modint_t operator-(const modint_t& a) const {
    return (x - a.x) % MOD;
  };

  modint_t operator*(const modint_t& a) const {
    return x * a.x % MOD;
  };

  modint_t operator/(const modint_t& a) const {
    return (*this) * a.inversed();
  };

  // Note that operator^'s priority is quite low in C++...
  modint_t operator^(long long i) const {
    return modpow(x, i);
  };

public:
  modint_t& operator+=(const modint_t& a) {
    (x += a.x) %= MOD;

    return *this;
  };

  modint_t& operator-=(const modint_t& a) {
    (x -= a.x) %= MOD;

    return *this;
  };

  modint_t& operator*=(const modint_t& a) {
    (x *= a.x) %= MOD;

    return *this;
  };

  modint_t& operator/=(const modint_t& a) {	// Not tested
    (x *= a.inversed().x) %= MOD;

    return *this;
  };

public:
  modint_t inversed() const {
    assert(x % MOD);

    return modpow(x, MOD - 2);
  };

  void inverse() {
    assert(x % MOD);

    x = modpow(x, MOD - 2).x;
  };

private:
  void normalize() {
    while (! (0 <= x && x < MOD))
      x = (x + MOD) % MOD;
  };

private:
  long long x;
};

modint_t operator+(long long a, const modint_t& b)
{
  return modint_t(a) + b;
}

modint_t operator-(long long a, const modint_t& b)
{
  return modint_t(a) - b;
}

modint_t operator*(long long a, const modint_t& b)
{
  return modint_t(a) * b;
}

modint_t operator/(long long a, const modint_t& b)
{
  return modint_t(a) / b;
}

std::ostream& operator<<(std::ostream& ofs, modint_t a)
{
  a.normalize();

  ofs << a.x;

  return ofs;
}

modint_t modpow(modint_t x, long long y)
{
  modint_t xx = x, p = 1;

  for ( ; y; xx *= xx, y >>= 1)
    if (y & 1)
      p *= xx;

  return p;
}

modint_t modncr(int n, int r)
{
  assert(n >= 0);
  assert(r >= 0);

  if (n == 0)
    return r == 0 ? 1 : 0;

  if (r > n)
    return 0;

  modint_t num = 1, denom = 1;

  int dm = std::min(r, n - r);
  int dp = std::max(r, n - r);

  for (int i = dp + 1; i <= n; i ++)
    num *= i;

  for (int i = 2; i <= dm; i ++)
    denom *= i;

  return modpow(denom, MOD - 2) * num;
}

template<size_t T>
class modinv_t {
public:
  modinv_t() {
    modint_t x = a_[0] = 1;

    for (int i = 1; i < T; i ++)
      a_[i] = (x *= i).get();

    modint_t inv = modpow(a_[T - 1], MOD - 2);

    for (int i = T - 1; i > 0; inv *= i, i --)
      a_[i] = (a_[i - 1] * inv).get();

#if 0
    for (int i = 1; i < T; i ++)
      assert(i * a_[i] % MOD == 1);
#endif
  };

public:
  modint_t operator[](size_t i) const {
    assert(i < T);

    return a_[i];
  };

private:
  long long a_[T];
};

modinv_t<111111> modinv;


int main(int argc, char** argv)
{
  std::cin.tie(0);
  std::ios_base::sync_with_stdio(0);

  std::cout << std::fixed << std::setprecision(6);
  std::cerr << std::fixed << std::setprecision(6);

  int N;

  long long A[111111], acc[111111];

  acc[0] = 0;

  std::cin >> N;

  modint_t S0(0), S1(0), S2(0), prod(1), s(0), ss(0);

  for (int i = 0; i < N; i ++) {
    std::cin >> A[i];

    prod *= i + 1;
    s    += A[i];

    acc[i + 1] = A[i] + acc[i];
  }

  S0 += prod * s;

  s = 0;
  
  for (int i = 0; i < N - 1; i ++) {
    s += A[        i];
    s += A[N - 1 - i];

    int x = i + 2;
    
    modint_t t = prod * modinv[x];

    S1 += t * s;
  }

  s = ss = 0;
  
  for (int i = 1; i < N - 1; i ++)
    s += A[i];

  for (int i = 0; i < N - 2; i ++) {
    int x = i + 2, y = x + 1, z = i + 1, n = N - 2 - i;

    modint_t t = prod * 2 * modinv[x] * modinv[y];

    modint_t u = s * z - ss;

    S2 += t * u;

    long long l = acc[i + 1 + 1] - acc[1], r = acc[N - 1] - acc[N - 2 - i];

    ss += l;
    ss += r;
  }

  std::cout << S0 + S1 + S2 << std::endl;

  return 0;
}


Measured memory_bytes: 2688