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