#include <bits/stdc++.h>
#define For(i, a, b) for (int(i) = (int)(a); (i) < (int)(b); ++(i))
#define rFor(i, a, b) for (int(i) = (int)(a)-1; (i) >= (int)(b); --(i))
#define rep(i, n) For((i), 0, (n))
#define rrep(i, n) rFor((i), (n), 0)
#define fi first
#define se second
using namespace std;
typedef long long lint;
typedef unsigned long long ulint;
typedef pair<int, int> pii;
typedef pair<lint, lint> pll;
template <class T>
bool chmax(T &a, const T &b) {
    if (a < b) {
        a = b;
        return true;
    }
    return false;
}
template <class T>
bool chmin(T &a, const T &b) {
    if (a > b) {
        a = b;
        return true;
    }
    return false;
}
template <class T>
T div_floor(T a, T b) {
    if (b < 0) a *= -1, b *= -1;
    return a >= 0 ? a / b : (a + 1) / b - 1;
}
template <class T>
T div_ceil(T a, T b) {
    if (b < 0) a *= -1, b *= -1;
    return a > 0 ? (a - 1) / b + 1 : a / b;
}

constexpr lint mod = 1000000007;
constexpr lint INF = mod * mod;
constexpr int MAX = 200010;

lint f(char c) { return c == 'R' ? 0 : 1; }

int main() {
    int n;
    string s;
    cin >> n >> s;
    lint a[n];
    rep(i, n) scanf("%lld", &a[i]);

    lint dp[n + 1][2];
    rep(i, n + 1) rep(j, 2) dp[i][j] = -INF;
    dp[0][0] = dp[0][1] = 0;
    lint ans = -INF;
    rep(i, n) rep(j, 2) {
        chmax(dp[i + 1][j], max(dp[i][j], 0LL) + (j == f(s[i]) ? a[i] : -a[i]));
        chmax(ans, dp[i + 1][j]);
    }
    printf("%lld\n", ans);
}