var

m,n,r,f:array[1..255] of integer;
i,j,p,res,la,lb,dl:integer;
s:string;

begin

readln(s);
la:=length(s);
i:=la;
while (i >= 1) do begin
  m[length(s)-i+1]:=ord(s[i])-48;
  i:=i-1;
end;

readln(s);
lb:=length(s);
i:=lb;
while (i >= 1) do begin
  n[length(s)-i+1]:=ord(s[i])-48;
  i:=i-1;
end;

for i:=1 to 255 do
  r[i]:=0;

for i:=1 to la do begin
  p:=0;
  for j:=1 to lb do begin
    res:=m[i]*n[j]+p+r[i+j-1];
    r[i+j-1]:=res mod 10;
    p:=res div 10;
  end;
  r[i+j]:=p;
end;

i:=255;
while (i>1) and (r[i]=0) do i:=i-1;
dl:=i;


for i:=dl downto 1 do write(r[i]:3)


end.