var f1,f2:text;
    c1,c2,c:char;
    i,j,g,n,m,cst,nr:longint;
    v,mt:array[0..1010,0..26] of longint;
begin
        assign(f1,'nrcuv.in');
        reset(f1);
        assign(f2,'nrcuv.out');
        rewrite(f2);
        readln(f1,n,m);
        cst:=104659;
        for i:=1 to m do
        begin
                readln(f1,c1,c,c2);
                mt[ord(c1)-96,ord(c2)-96]:=1;
                mt[ord(c2)-96,ord(c1)-96]:=1;
        end;
        for i:=1 to 26 do
                v[1,i]:=1;
        for i:=2 to n do
                for j:=1 to 26 do
                        for g:=1 to 26 do
                                if mt[g,j]=0 then
                                        v[i,j]:=(v[i,j]+v[i-1,g]) mod cst;
        for i:=1 to 26 do
                nr:=nr+v[n,i];
        writeln(f2,nr mod cst);
        close(f1);
        close(f2);
end.