const r=104659;  
    var f,g:text;  
    a:array['a'..'z','a'..'z']of 0..1;  
    v:array[1..500,'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.