var v:array[1..1001,'a'..'z'] of longword;
    c:array['a'..'z','a'..'z'] of byte;
    m,n,i:integer;
    s,rs:longword;
    a,b,q:char;
    f:text;

begin
assign(f,'nrcuv.in');
reset(f);
 fillchar(c,sizeof(c),0);
 readln(f,n,m);
 for i:=1 to m do
     begin
      readln(f,a,q,b);
      c[a,b]:=1;
      c[b,a]:=1;
     end;
close(f);

     for a:='a' to 'z' do
     v[1,a]:=1;
     s:=0;rs:=0;
     for i:=2 to n do
       for a:='a' to 'z' do
         begin
         s:=0;rs:=0;
          for b:='a' to 'z' do
              if c[a,b]=0 then
                if (s+v[i-1,b])>=104659 then
                        begin
                         inc(rs);
                         s:=s+v[i-1,b] div 104659;
                        end else
                        s:=s+v[i-1,b];
              v[i,a]:=s;
         end;

     s:=0;
for a:='a' to 'z' do
    s:=s+v[n,a];
    assign(f,'nrcuv.out');
    rewrite(f);
    writeln(f,s);
    close(f);
end.