var v:array[1..1001,'a'..'z'] of longword;
    c:array['a'..'z','a'..'z'] of byte;
    m,n,i:integer;
    s:longword;
    a,b,q:char;
    f:text;

begin
assign(f,'nrcuv.in');
reset(f);
 fillchar(c,sizeof(c),0);
 fillchar(v,sizeof(v),0);
 readln(f,n,m);
 for i:=1 to m do
     begin
      readln(f,a,q,b);
      c[a,b]:=1;
      c[b,a]:=1;
     end;
close(f);

     for a:='a' to 'z' do
     v[1,a]:=1;
	
     for i:=2 to n do
       for a:='a' to 'z' do
         begin
          for b:='a' to 'z' do
              if c[a,b]=0 then
                v[i,a]:=(v[i,a]+v[i-1,b]) mod 104659;
              v[i,a]:=v[i,a] mod 104659;
         end;

     s:=0;
for a:='a' to 'z' do
    s:=(s+v[n,a]) mod 104659;
    s:=s mod 104659;
    assign(f,'nrcuv.out');
    rewrite(f);
    writeln(f,s);
    close(f);
end.