uses crt;
var s1,s2:string;
function nhan(a:string; b:string):string;
var i,j,nho,tam:longint; t:array[1..5000]of longint;
begin
   nhan:='';
   nho:=0; tam:=0;
   for i:=length(a) downto 1 do
      for j:=length(b) downto 1 do
         inc(t[i+j-1],(ord(a[i])-48)*(ord(b[j])-48));
   for i:=length(a)+length(b)-1 downto 1 do 
      begin
         tam:=(t[i]+nho) div 10;
         t[i]:=(t[i]+nho) mod 10;
         nho:=tam;
      end;
   if (nho<>0) then nhan:=nhan+chr(ord(nho)+48);
   for i:=1 to length(a)+length(b)-1 do nhan:=nhan+chr(ord(t[i])+48);
end;
begin 
clrscr;
   readln(s1);
   readln(s2);
   writeln(nhan(s1,s2));
readln 
end.

uses crt;
var a, b: string;

function add(a, b: string): string;
var c: string;
    sum, carry, i: longint;
begin
    carry:=0; c:='';
    while(length(a) < length(b)) do a:='0' + a;
    while(length(b) < length(a)) do b:='0' + b;
    for i:=length(a) downto 1 do
        begin
            sum:=ord(a[i]) - 48 + ord(b[i]) - 48 + carry;
            carry:=sum div 10;
            c:=chr(sum mod 10 + 48) + c;
        end;
    if(carry > 0) then c:='1' + c;
    exit(c);
end;

function mul(a, b: string): string;
var sum, tmp: string;
    m, i, j: longint;
begin
    m:=-1; sum:='';
    for i:=length(a) downto 1 do
        begin
            inc(m);
            tmp:='';
            for j:=1 to ord(a[i]) - 48 do tmp:=add(tmp,b);
            for j:=1 to m do tmp:=tmp + '0';
            sum:=add(tmp,sum);
        end;
    exit(sum);
end;

begin
clrscr;
    readln(a);
    readln(b);
    writeln(mul(a, b));
readln;
end.