program lista;
var f:text;
    as,ev:boolean;
    nr:array[1..1000,1..26] of int64;
    mat:array[1..26,1..26] of 0..1;
    n,m,i,j,k:integer;
    s:longint;
    a,b,c:char;
begin
  assign(f,'nrcuv.in');
  reset(f);
  readln(f,n,m);
  for i:=1 to m do
    begin
       read(f,a);read(f,c);readln(f,b);
       if mat[ord(a)-96,ord(b)-96]=0 then
       begin
       mat[ord(a)-96,ord(b)-96]:=1;
       mat[ord(b)-96,ord(a)-96]:=1;
       end;
    end;
  close(f);
  assign(f,'nrcuv.out');
  rewrite(f);
  for i:=1 to 26 do nr[1,i]:=1;
  for j:=2 to n do
    for i:=1 to 26 do
      begin
      nr[j,i]:=0;
      for k:=1 to 26 do
        if mat[i,k]=0 then nr[j,i]:=(nr[j,i]+1) mod 104659;
      nr[j,i]:=(nr[j,i]*nr[j-1,i]) mod 104659
      end;
      s:=0;
  for i:=1 to 26 do
     s:=(s+nr[n,i]) mod 104659;

 writeln(f,s);
 close(f);
end.