#include <bits/stdc++.h>
                            #include<iostream>
                            #include<cstdio>
                            #include<vector>
                            #include<queue>
                            #include<map>
                            #include<cstring>
                            #include<string>
                            #include <math.h>
                            #include<algorithm>
                        //    #include <boost/multiprecision/cpp_int.hpp>
                            #include<functional>
                     #define int long long
                            #define inf  1000000007
                            #define pa pair<int,int>
                            #define ll long long
                            #define pal pair<double,pa>
                            #define ppa pair<pa,int>
                            #define ppap pair<int,pa>
                            #define ssa pair<string,int>
                            #define  mp make_pair
                            #define  pb push_back
                            #define EPS (1e-10)
                            #define equals(a,b) (fabs((a)-(b))<EPS)
                     
                            using namespace std;
                     //priority_queue<int, vector<int>, greater<int> > que;
                            class Point{
                            	public:
                            	double x,y;
                            	Point(double x=0,double y=0):x(x),y(y) {}
                            	Point operator + (Point p) {return Point(x+p.x,y+p.y);}
                            	Point operator - (Point p) {return Point(x-p.x,y-p.y);}
                            	Point operator * (double a) {return Point(x*a,y*a);}
                            	Point operator / (double a) {return Point(x/a,y/a);}
                            	double absv() {return sqrt(norm());}
                            	double norm() {return x*x+y*y;}
                            	bool operator < (const Point &p) const{
                            		return x != p.x ? x<p.x: y<p.y;
                            	}
                            	bool operator == (const Point &p) const{
                            		return fabs(x-p.x)<EPS && fabs(y-p.y)<EPS;
                            	}
                            };
                            typedef Point Vector;
                     
                            struct Segment{
                            Point p1,p2;
                            };
                     
                        double hen(Vector a){
                        if(fabs(a.x)<EPS && a.y>0) return acos(0);
                        else if(fabs(a.x)<EPS && a.y<0) return 3*acos(0);
                        else if(fabs(a.y)<EPS && a.x<0) return 2*acos(0);
                        else if(fabs(a.y)<EPS && a.x>0) return 0.0;
                        else if(a.y>0) return acos(a.x/a.absv());
                        else return 2*acos(0)+acos(-a.x/a.absv());
                     
                        }
                     
                string itos( int i ) {
                ostringstream s ;
                s << i ;
                return s.str() ;
                }
                 
                int gcd(int v,int b){
                	if(v>b) return gcd(b,v);
                	if(v==b) return b;
                	if(b%v==0) return v;
                	return gcd(v,b%v);
                }
                            double dot(Vector a,Vector b){
                            	return a.x*b.x+a.y*b.y;
                            }
                            double cross(Vector a,Vector b){
                            	return a.x*b.y-a.y*b.x;
                            }
                        
                double distans(double x1,double y1,double x2,double y2){
                	double rr=(x1-x2)*(x1-x2)+(y1-y2)*(y1-y2);
                	return sqrt(rr);
                	
                }
                /*}
int pr[100010];
//int inv[100010];
 
int beki(int wa,int rr){
	if(rr==0) return 1ll;
	if(rr==1) return wa;
	if(rr%2==1) return (beki(wa,rr-1)*wa)%inf;
	int zx=beki(wa,rr/2);
	return (zx*zx)%inf;
}
  
void gya(){
	pr[0]=1;
	for(int i=1;i<100010;i++){
		pr[i]=(pr[i-1]*i)%inf;
	}
	for(int i=0;i<100010;i++) inv[i]=beki(pr[i],inf-2);
	
}

*/

                         //----------------kokomade tenpure------------
int dp[1010][300]={0};
int L[201][201],S[201][201];
signed main(){

	

	int n,m;
	while(1){
		cin>>n>>m;
		if(n==0) return 0;
		for(int i=1;i<=n;i++){
			for(int j=1;j<=n;j++){
				L[i][j]=inf;
				S[i][j]=inf;
			}
			L[i][i]=0;
			S[i][i]=0;
			
		}
		for(int i=0;i<m;i++){
			int x,y,t;
			string s;
			cin>>x>>y>>t>>s;
			if(s=="S"){
				S[x][y]=min(S[x][y],t);
				S[y][x]=min(S[y][x],t);
			}
			else{
				L[x][y]=min(L[x][y],t);
				L[y][x]=min(L[y][x],t);
			}
			
		}
		
		for(int k=1;k<=n;k++)for(int i=1;i<=n;i++)for(int j=1;j<=n;j++){
			S[i][j]=min(S[i][j],S[i][k]+S[k][j]);
			L[i][j]=min(L[i][j],L[i][k]+L[k][j]);
		}
		for(int i=0;i<1010;i++)for(int j=0;j<300;j++)dp[i][j]=inf;
		vector<int>ve;
		ve.pb(-1);
		int r;
		cin>>r;
		for(int i=0;i<r;i++){
			int rt;
			cin>>rt;
			ve.pb(rt);
		}
		dp[0][ve[1]]=0;
		
		for(int i=1;i<=r-1;i++){
			for(int j=1;j<=n;j++){
		//		if(dp[i-1][j]>=inf) continue;
				for(int k=1;k<=n;k++){
					if(k!=j)	dp[i][j]=min(dp[i][j],dp[i-1][k]+L[ve[i]][k]+S[k][j]+L[j][ve[i+1]]);
					else dp[i][j]=min(dp[i][j],dp[i-1][k]+L[ve[i]][ve[i+1]]);
				}
	//			if(n==2 &&m==1)	cout<<"dp "<<i<<" "<<j<<" "<<dp[i][j]<<endl;
			}
		}
	int ans=inf;
		for(int i=1;i<=n;i++) ans=min(ans,dp[r-1][i]);
		cout<<ans<<endl;
	}
	
	
	return 0;
}

Measured memory_bytes: 6228