#include<bits/stdc++.h>
using namespace std;
namespace IO{
	template<typename T>inline bool read(T &x){
		x=0;
		char ch=getchar();
		bool flag=0,ret=0;
		while(ch<'0'||ch>'9') flag=flag||(ch=='-'),ch=getchar();
		while(ch>='0'&&ch<='9') x=x*10+ch-'0',ch=getchar(),ret=1;
		x=flag?-x:x;
        return ret;
	}
	template<typename T,typename ...Args>inline bool read(T& a,Args& ...args){
	    return read(a)&&read(args...);
	}
	template<typename T>void prt(T x){
		if(x>9) prt(x/10);
		putchar(x%10+'0');
	}
	template<typename T>inline void put(T x){
		if(x<0) putchar('-'),x=-x;
		prt(x);
	}
	template<typename T>inline void put(char ch,T x){
		if(x<0) putchar('-'),x=-x;
		prt(x);
		putchar(ch);
	}
	template<typename T,typename ...Args>inline void put(T a,Args ...args){
	    put(a);
		put(args...);
	}
	template<typename T,typename ...Args>inline void put(const char ch,T a,Args ...args){
	    put(ch,a);
		put(ch,args...);
	}
	inline void put(string s){
		for(int i=0,sz=s.length();i<sz;i++) putchar(s[i]);
	}
	inline void put(const char* s){
		for(int i=0,sz=strlen(s);i<sz;i++) putchar(s[i]);
	}
	inline int getch(){
		char ch=getchar();
		while(ch!='A'&&ch!='B') ch=getchar();
		return ch-'A';
	}
}
using namespace IO;
#define N 200005
#define ll long long
struct heap{
	priority_queue<int> q1;
	priority_queue<int,vector<int>,greater<int> >q2;
	ll sum1,sum2;
	heap(){sum1=sum2=0;}
	inline void insert(int x){
		if(q2.empty()||q2.top()>x) q1.push(x),sum1+=x;
		else q2.push(x),sum2+=x;
		while(q1.size()>q2.size()+1) q2.push(q1.top()),sum2+=q1.top(),sum1-=q1.top(),q1.pop();
		while(q2.size()>q1.size()) q1.push(q2.top()),sum1+=q2.top(),sum2-=q2.top(),q2.pop();
	}
	inline ll calc(){
		ll x=q1.top();
		return x*q1.size()-sum1+sum2-x*q2.size();
	}
}q;
ll ans,L[N];
int n,m,k;
struct node{
	int l,r;
	inline bool operator<(const node &b)const{
		return l+r<b.l+b.r;
	}
}p[N];
int main(){
	read(k,m);
	for(int i=1,a,x,b,y;i<=m;i++){
		a=getch(),read(x),b=getch(),read(y);
		if(x>y) swap(x,y);
		if(a==b) ans+=y-x;
		else p[++n]=(node){x,y};
	}
	if(k==1){
		vector<int> vec;
		for(int i=1;i<=n;i++) vec.emplace_back(p[i].l),vec.emplace_back(p[i].r);
		sort(vec.begin(),vec.end());
		for(auto v:vec) ans+=abs(vec[n]-v);
		put('\n',ans+n);
		return 0;
	}
	for(int i=1;i<=n;i++)
		q.insert(p[i].l),q.insert(p[i].r),L[i]=q.calc();
	ll res=2e18;q=heap();
	for(int i=n;i;i--)
		q.insert(p[i].l),q.insert(p[i].r),res=min(res,L[i-1]+q.calc());
	put('\n',ans+res+n);
	return 0;
}