var f,g:text;
adi:array[1..26,1..26] of byte;
a:array[1..1000,1..26] of longint;
n,i,j,k,l,m:longint;
l1,l2,s:char;
begin
assign(f,'nrcuv.in');
assign(g,'nrcuv.out');
reset(F);
rewrite(G);
readln(f,n,m);
for i:=1 to m do
begin
readln(f,l1,s,l2);
adi[ord(l1)-96,ord(l2)-96]:=1;
adi[ord(l2)-96,ord(l1)-96]:=1;
end;
for i:=1 to 26 do a[1,i]:=1;
for i:=2 to n do
        for j:=1 to 26 do
         for k:=1 to 26 do
                if adi[j,k]=0 then a[i,j]:=(a[i,j]+a[i-1,k])mod 104659;
m:=0;
for i:=1 to  26 do
     m:=(m+a[n,i]) mod 104659;
writeln(g,m);
close(f);
close(G);
end.