const max=104659;
var a:array['a'..'z','a'..'z']of longint; b:array['a'..'z','a'..'z']of byte; c:array[0..1,'a'..'z']of longint;
i,j,n,m:integer;  d,e:char; v2,v,v3,s:longint;
begin
assign(input,'nrcuv.in'); reset(input);
readln(n,m);
for i:=1 to m do begin readln(d,e,e); b[d,e]:=1; b[e,d]:=1 end;
for d:='a' to 'z' do c[1,d]:=1;
for i:=2 to n do
begin
  for d:='a' to 'z' do begin
    v2:=0; v:=i mod 2;  v3:=((i+1) mod 2);
    for e:='a' to 'z' do
      begin
        if b[d,e]=0 then begin a[d,e]:=c[v3,e]; v2:=(v2+c[v3,e]) mod max end else a[d,e]:=0;
      end; c[v,d]:=v2; end;
end;
v:=(n) mod 2; s:=0;
for d:='a' to 'z' do s:=(s+c[v,d])mod max;
assign(output,'nrcuv.out'); rewrite(output);
writeln(s);
close(output);
end.