program alex;
var f:text;
    a:array[1..1001,1..26]of 0..1;
    nr:array[1..1001,1..26]of longint;
    i,n,m,j,s,h:longint;
    x,y,z:char;
begin
assign(f,'nrcuv.in');reset(f);
readln(f,n,m);
for i:=1 to m do
    begin
    readln(f,x,z,y);
    a[ord(x)-96,ord(y)-96]:=1;
    a[ord(y)-96,ord(x)-96]:=1;
    end;
close(f);
for j:=1 to 26 do
    nr[1,j]:=1;
for i:=2 to n do
    for j:=1 to 26 do
        begin
        s:=0;
        for h:=1 to 26 do
            if a[j,h]=0 then s:=(s+nr[i-1,h])mod 104659;
        nr[i,j]:=s;
        end;
s:=0;
for j:=1 to 26 do
    s:=(s+nr[n,j])mod 104659;
assign(f,'nrcuv.out');rewrite(f);
writeln(f,s);
close(f);
end.