{100 puncte}
program listaluiandrei;
const nn=104659;
var fi,fo:text;
    n,m,i,j,k,lit1,lit2,nrsir:longint;
    a:array[1..26,1..26]of byte;
    sol:array[1..1000,1..26]of longint;
    s:string;
begin
  assign(fi,'nrcuv.in'); 
  reset(fi);
  assign(fo,'nrcuv.out'); 
  rewrite(fo);
  readln(fi,n,m);
  for i:=1 to m do
    begin
      readln(fi,s);
      lit1:=ord(s[1])-96; 
      lit2:=ord(s[3])-96;
      a[lit1,lit2]:=1;
      a[lit2,lit1]:=1;
    end;
  for i:=1 to 26 do
    sol[1,i]:=1;
  for i:=2 to n do
    for j:=1 to 26 do
      for k:=1 to 26 do
        if a[k,j]=0 then sol[i,j]:=((sol[i,j] mod nn)+(sol[i-1,k] mod nn))mod nn;
  for i:=1 to 26 do
    nrsir:=((nrsir mod nn)+(sol[n,i] mod nn))mod nn;
  writeln(fo,nrsir);
  close(fi);
  close(fo);
end.