var v:array[0..30,0..30]of longint;
    a,b:array[0..30]of longint;
    n,i,j,k,m,s:longint;
    c1,c2,c3:char;
    f:text;
begin
   assign(f,'nrcuv.in');
   reset(f);
   readln(f,n,m);
   for i:=1 to m do
   begin
   readln(f,c1,c2,c3);
   v[ord(c1)-96,ord(c3)-96]:=1;
   v[ord(c3)-96,ord(c1)-96]:=1;
   end;
   close(f);
   for i:=1 to 26 do
   begin
   a[i]:=1;
   b[i]:=1;
   end;
   for i:=2 to n do
   begin
   for j:=1 to 26 do
   begin
   b[j]:=0;
   for k:=1 to 26 do
   if(v[j,k]=0)then b[j]:=(b[j]+a[k])mod 104659;
   end;
   a:=b;
   end;
   s:=0;
   for i:=1 to 26 do
   s:=(s+b[i])mod 104659;
   assign(f,'nrcuv.out');
   rewrite(f);
   writeln(f,s);
   close(f);
end.