/*
 * hujx.cpp
 *
 *  Created on: 2015年5月21日
 *      Author: dell
 */
#include<stdio.h>
#include<iostream>
#include<string>
#include<string.h>
#include<algorithm>
#include<iomanip>
#include<vector>
#include<time.h>
#include<queue>
#include<stack>
#include<iterator>
#include<math.h>
#include<stdlib.h>
#include<limits.h>
#include<map>
#include<set>
#include<bitset>
//#define ONLINE_JUDGE
#define eps 1e-5
#define INF 0x7fffffff
#define FOR(i,a) for((i)=0;i<(a);(i)++)
#define MEM(a) (memset((a),0,sizeof(a)))
#define sfs(a) scanf("%s",a)
#define sf(a) scanf("%d",&a)
#define sfI(a) scanf("%I64d",&a)
#define pf(a) printf("%d\n",a)
#define pfI(a) printf("%I64d\n",a)
#define pfs(a) printf("%s\n",a)
#define sfd(a,b) scanf("%d%d",&a,&b)
#define sft(a,b,num) scanf("%d%d%d",&a,&b,&num)
#define for1(i,a,b) for(int i=(a);i<b;i++)
#define for2(i,a,b) for(int i=(a);i<=b;i++)
#define for3(i,a,b)for(int i=(b);i>=a;i--)
#define MEM1(a) memset(a,0,sizeof(a))
#define MEM2(a) memset(a,-1,sizeof(a))
#define ll long long
const double PI=acos(-1.0);
template<class T> T gcd(T a,T b){return b?gcd(b,a%b):a;}
template<class T> T lcm(T a,T b){return a/gcd(a,b)*b;}
template<class T> inline T Min(T a,T b){return a<b?a:b;}
template<class T> inline T Max(T a,T b){return a>b?a:b;}
using namespace std;
//#pragma comment(linker,"/STACK:1024000000,1024000000")
int n,m,x;
#define N 210
#define M 100010
#define Mod 1000000000
#define p(x,y) make_pair(x,y)
const int MAX_len=550;
int dpl[N][N];
int dps[N][N];
int des[1010];
int dp[N][N];
void Init(){
	for(int i=0;i<=n;i++){
		for(int j=0;j<=m;j++){
			if(i == j) dpl[i][j] = dps[i][j] = 0;
			else
				dpl[i][j] = dps[i][j] = 100000000;
		}
	}
}
void Floyd(){
	for(int k=0;k<n;k++){
		for(int i=0;i<n;i++){
			for(int j=0;j<n;j++){
				dpl[i][j] = Min(dpl[i][j],dpl[i][k]+dpl[k][j]);
				dps[i][j] = Min(dps[i][j],dps[i][k]+dps[k][j]);
			}
		}
	}
}
int main(){
    while(scanf("%d%d",&n,&m)!=EOF && n+m){
    	int u,v,c;
    	char ch[5];
    	Init();
    	for(int i=0;i<m;i++){
    		scanf("%d%d%d%s",&u,&v,&c,ch);
    		u--,v--;
    		if(ch[0] == 'L'){
    			dpl[u][v] = dpl[v][u] = Min(dpl[u][v],c);
    		}else{
    			dps[u][v] = dps[v][u] = Min(dps[u][v],c);
    		}
    	}
    	int d;
    	sf(d);
    	for(int i=0;i<d;i++){
    		sf(u);
    		u--;
    		des[i] = u;
    	}
    	Floyd();
    	for(int i=0;i<n;i++)
    		for(int j=0;j<n;j++)
    			dp[i][j] = 100000000;

    	for(int i=0;i<n;i++)
    		dp[0][i] = dps[des[0]][i]+dpl[i][des[0]];
    	for(int i=1;i<d;i++){
    		for(int j=0;j<n;j++){
    			for(int k=0;k<n;k++){
    				if(j != k)
    				dp[i][k] = Min(dp[i][k],dp[i-1][j]+dpl[des[i-1]][j]+dps[j][k]+dpl[k][des[i]]);
    				else
    					dp[i][j] = Min(dp[i][j],dp[i-1][j]+dpl[des[i-1]][des[i]]);
    			}
    		}
    	}
    	int ans = INF;
    	for(int i=0;i<n;i++)
    		ans = Min(ans,dp[d-1][i]);
    	printf("%d\n",ans);
    }
    return 0;
}