var x:array[1..10000] of char;
        k,n,m:integer;



 function valid (var x,y:longint; s:char):boolean;
 begin

  case s of
        'U': begin
                if (x-1 in [1..n]) then valid:=true else valid:=false;
                dec(x);
                end;

        'D': begin
                if (x+1 in [1..n]) then valid:=true else valid:=false;
                inc(x);
                end;

        'L': begin
                if (y-1 in [1..m]) then valid:=true else valid:=false;
                dec(y);
                end;

        'R': begin
                if (y+1 in [1..m]) then valid:=true else valid:=false;
                inc(y);
                end;
        end;

  writeln('x,y= ',x,' ',y);

 end;



 procedure citire;
 var max,i,l,c,z,j,xx,yy:longint; ok:boolean;
 begin

  readln(n,m); readln(k);

  max:=0;

  for i:=1 to k do
        read(x[i]);

  c:=1; l:=1;


  case x[1] of
        'L': c:=2;
        'U': l:=2;
        'D': n:=n-1;
        'R': m:=m-1;
        end;

  z:=1;

  for i:=l to n do
        for j:=c to m do
                begin

                 xx:=i; yy:=j;

                 z:=0; ok:=true;

                 while (ok=true) and (z<=k) do
                        begin
                         inc(z);
                         ok:=valid(xx,yy,x[z]);
                        end;

                 if ok then begin max:=max+1; end;

                end;

  writeln(max);

 end;



begin
 citire;
end.