uses crt;
var s:string;
i,t,d:longint; 
begin
clrscr;
readln(s);
i:=1;
t:=1;
while i<=length(s) do
begin
 d:=0;
 while s[i] in ['0'..'9'] do
 begin
  d:=d+1;
  i:=i+1;
 end;
 if d<>0 then t:=t*d;
 i:=i+1;
end;
write(t);
readln
end.

var s: string;
    i,d: integer;
    ans: int64;
begin
    readln(s);
    d:=0; ans:=1;
    for i:=2 to length(s) do begin
        if s[i] in ['0'..'9'] then d:=d+1
        else begin
            ans:=ans*d;
            d:=0;
        end;
    end;
    write(ans);
end.