var
	s1,s2   : string;
	a,b,c   : array[0..100] of integer;
	la,lb,lc: integer;
	i,j,k   : integer;
begin
	assign(input,'mul.in');reset(input);
	assign(output,'mul.out');rewrite(output);
	readln(s1);readln(s2);
	la:=length(s1);lb:=length(s2);lc:=la+lb;
	for i:=la-1 downto 0 do a[i]:=ord(s1[la-i])-ord('0');
	for i:=lb-1 downto 0 do b[i]:=ord(s2[lb-i])-ord('0');;
	for i:=lc-1 downto 0 do c[i]:=0;
	for i:=0 to la-1 do
		for j:=0 to lb-1 do
			c[i+j]:=c[i+j]+a[i]*b[j];
	k:=0;
	for i:=0 to lc-1 do
		begin
			c[i]:=c[i]+k;
			k:=c[i] div 10;
			c[i]:=c[i] mod 10;
		end;
	if c[lc]=0 then lc:=lc-1;
	for i:=lc-1 downto 0 do write(c[i]);
	close(input);close(output);
end.