const x=104659;

var f,g:text;
    a:array['a'..'z','a'..'z']of shortint;
    b:array[1..1010,'a'..'z'] of longint;
    y,c,j:char;
    n,m,i,s:longint;
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,j,c,y);
    a[j,y]:=1;
    a[y,j]:=1;
  end;
for y:='a' to 'z' do
  b[1,y]:=1;
for i:=2 to n do
  for j:='a' to 'z' do
    for y:='a' to 'z' do
      if (a[j,y]=0)then
        b[i,j]:=(b[i,j]+b[i-1,y])mod x;
for j:='a' to 'z' do
  s:=(s+b[n,j])mod x;
write(g,s);
close(f);
close(g);
end.