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

#define fs first
#define sc second

const LL MOD = 1e9+7;
const double EPS = 1e-10;

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 (b < a) { a = b; return true; }
    return false;
}

// std::vector Declaration
template<typename T>
vector<T> make_v(size_t a) { return vector<T>(a); }
template<typename T,typename... Ts>
auto make_v(size_t a,Ts... ts) {
    return vector<decltype(make_v<T>(ts...))>(a,make_v<T>(ts...));
}

// std::vector Declaration and Initialization
template<typename T>
vector<T> make_vector(size_t a, T x) { return vector<T>(a, x); }
template<typename T, typename U, typename... Ts>
auto make_vector(size_t a, U b, Ts... ts) {
    return vector<decltype(make_vector<T>(b,ts...))>(a,make_vector<T>(b,ts...));
}

// std::vector Input
template<typename T>
istream& operator>>(istream& is, vector<T>& v) {
    for (auto &e : v) {
        is >> e;
    }
    return is;
}

// std::vector Debug
template<typename T>
ostream& operator<<(ostream& os, const vector<T>& v) {
    os << "[";
    bool a = 1;
    for (auto e : v) {
        os << (a ? "" : " ");
        os << e;
        a = 0;
    }
    os << "]";
    return os;
}

// std::array Debug
template<typename T, size_t n>
ostream& operator<<(ostream& os, const array<T, n>& v) {
    os << "[";
    bool a = 1;
    for (auto e : v) {
        os << (a ? "" : " ");
        os << e;
        a = 0;
    }
    os << "]";
    return os;
}

// std::deque Debug
template<typename T>
ostream& operator<<(ostream& os, const deque<T>& d) {
    os << "[";
    bool a = 1;
    for (auto e : d) {
        os << (a ? "" : " ");
        os << e;
        a = 0;
    }
    os << "]";
    return os;
}

// std::pair Debug
template<typename T, typename U>
ostream& operator<<(ostream& os, const pair<T, U>& p) {
    os << "(" << p.first << " " << p.second << ")";
    return os;
}

// std::set Debug
template<typename T>
ostream& operator<<(ostream& os, const set<T>& st) {
    os << "{";
    bool a = 1;
    for (auto e : st) {
        os << (a ? "" : " ");
        os << e;
        a = 0;
    }
    os << "}";
    return os;
}

// std::multiset Debug
template<typename T>
ostream& operator<<(ostream& os, const multiset<T>& st) {
    os << "{";
    bool a = 1;
    for (auto e : st) {
        os << (a ? "" : " ");
        os << e;
        a = 0;
    }
    os << "}";
    return os;
}

// std::map Debug
template<typename T, typename U>
ostream& operator<<(ostream& os, const map<T, U>& mp) {
    os << "{";
    bool a = 1;
    for (auto e : mp) {
        os << (a ? "" : " ");
        os << e.first << ":" << e.second;
        a = 0;
    }
    os << "}";
    return os;
}

// std::tuple Debug
template<int N, class Tuple>
void out(ostream& os, const Tuple& t){}
template<int N, class Tuple, class H, class ...Ts>
void out(ostream& os, const Tuple& t) {
    if (N) os << " ";
    os << get<N>(t);
    out<N+1,Tuple,Ts...>(os, t);
}
template<class ...Ts>
ostream& operator<<(ostream& os, const tuple<Ts...>& t) {
    os << "(";
    out<0,tuple<Ts...>,Ts...>(os, t);
    os << ")";
    return os;
}

// Debug
#define DUMP(x) cerr<<#x<<" = "<<(x)<<endl

// Weighted edge
template<typename T>
struct edge {
    int src, to;
    T cost;

    edge(int to, T cost) : src(-1), to(to), cost(cost) {}
    edge(int src, int to, T cost) : src(src), to(to), cost(cost) {}

    edge &operator=(const int &x) {
        to = x;
        return *this;
    }

    operator int() const { return to; }

    friend ostream& operator<<(ostream& os, const edge& e) {
        return os << "(" << e.src << "->" << e.to << ":" << e.cost << ")";
    }
};

template<typename T>
using Edges = vector<edge<T>>;
template<typename T>
using WeightedGraph = vector<Edges<T>>;
using UnWeightedGraph = vector<vector<int>>;
template<typename T>
using MatrixGraph = vector<vector<T>>;

template<typename T>
void warshall_floyd(MatrixGraph<T> &g) {
    const auto INF = numeric_limits<T>::max();
    for(int k = 0; k < g.size(); k++) {
        for(int i = 0; i < g.size(); i++) {
            for(int j = 0; j < g.size(); j++) {
                if(g[i][k] == INF || g[k][j] == INF) continue;
                g[i][j] = min(g[i][j], g[i][k] + g[k][j]);
            }
        }
    }
}

template<typename T>
void dijkstra(
        const WeightedGraph<T> &g,
        vector<T> &dist,
        int s)
{
    const auto INF = numeric_limits<T>::max();
    dist.assign(g.size(), INF);

    using Pi = pair< T, int >;
    priority_queue<Pi, vector<Pi>, greater<Pi>> que;
    dist[s] = 0;
    que.emplace(dist[s], s);
    while(!que.empty()) {
        T cost;
        int idx;
        tie(cost, idx) = que.top();
        que.pop();
        if(dist[idx] < cost) continue;
        for(auto &e : g[idx]) {
            auto next_cost = cost + e.cost;
            if(dist[e.to] <= next_cost) continue;
            dist[e.to] = next_cost;
            que.emplace(dist[e.to], e.to);
        }
    }
}

int main()
{
    while (true) {
        int n, m; cin >> n >> m;
        if (n == 0 && m == 0) {
            break;
        }

        vector<int> x(m), y(m), t(m);
        vector<char> sl(m);

        const int INF = numeric_limits<int>::max();

        auto S = make_vector<int>(n, n, INF),
             L = make_vector<int>(n, n, INF);
        for (int i = 0; i < n; ++i) {
            S[i][i] = L[i][i] = 0;
        }

        for (int i = 0; i < m; ++i) {
            cin >> x[i] >> y[i] >> t[i] >> sl[i];
            --x[i], --y[i];
            if (sl[i] == 'S') {
                chmin(S[x[i]][y[i]], t[i]);
                chmin(S[y[i]][x[i]], t[i]);
            } else {
                chmin(L[x[i]][y[i]], t[i]);
                chmin(L[y[i]][x[i]], t[i]);
            }
        }

        int R; cin >> R;
        vector<int> z(R);
        for (int i = 0; i < R; ++i) {
            cin >> z[i]; --z[i];
        }

        warshall_floyd(S);
        warshall_floyd(L);

        auto dist = make_vector<int>(R, n, INF);
        dist[0][z[0]] = 0;
        for (int i = 1; i < R; ++i) {
            for (int j = 0; j < n; ++j) {
                if (dist[i-1][j] == INF) continue;
                if (L[z[i-1]][z[i]] != INF) {
                    chmin(dist[i][j], dist[i-1][j] + L[z[i-1]][z[i]]);
                }
                for (int k = 0; k < n; ++k) {
                    if (L[z[i-1]][j] != INF &&
                        S[j][k] != INF &&
                        L[k][z[i]] != INF) {
                        chmin(dist[i][k], dist[i-1][j]
                                + L[z[i-1]][j] + S[j][k] + L[k][z[i]]);
                    }
                }
            }
        }
        int ans = *min_element(dist[R-1].begin(), dist[R-1].end());
        cout << ans << endl;

    }

    return 0;
}



Measured memory_bytes: 4184