{ arvutab n faktoriaali }
function fact(n : integer) : integer;
var i : integer;
begin
   fact := 1;
   for i := 1 to n do begin
      fact := fact * i;
   end;
end;

{ leiab s järjekorranumbri kõigi permutatsioonide hulgas }
function rank(s : string) : integer;
var i, j, n, k : integer;
begin
   rank := 1;
   n := length(s);
   for i := 1 to n do begin
      k := 0;
      for j := i + 1 to n do begin
         if s[i] > s[j] then begin
            k := k + 1;
         end;
      end;
      rank := rank + k * fact(n - i);
   end;
end;

var s : string;
begin
   readln(s);
   writeln(rank(s));
end.