const r=104659;
var f,g:text;
a:array['a'..'z','a'..'z']of 0..1;
v:array[1..1000,'a'..'z'] of longint;
y,x,c1,c2:char;
s,k,i,m,n,p:longint;
begin
assign(f,'nrcuv.in');
reset(f);
assign(g,'nrcuv.out');
rewrite(g);
readln(f,n,m);
for i:=1 to m do
   begin
      readln(f,c1,x,c2);
      a[c1,c2]:=1;a[c2,c1]:=1;
     end;
for x:='a' to 'z' do
  v[1,x]:=1;
for i:=2 to n do
for x:='a' to 'z' do
    begin
         v[i,x]:=0;
         for y:='a' to 'z' do
               if a[y,x]=0 then v[i,x]:=(v[i,x]+v[i-1,y])mod r;
    end;
for x:='a' to 'z' do
     s:=(s+v[n,x])mod r;
writeln(g,s);
close(g);
end.