uses math;

var cislo : string;
i, bin : integer;

begin
	readln(cislo);
	bin := 0;
	
	for i := length(cislo) downto 1 do
	begin
		bin := bin * integer(cislo[i]);
	end;
	
	writeln(bin);
end.