var

x:array[0..20000] of integer;

a,b:string;

i:longint;

procedure chen(a,b:string);

var

i,j:longint;

ta,tb:longint;

begin

fillchar(x,sizeof(x),0);

for i:=1 to length(a) do

begin

val(a[i],ta);

for j:=1 to length(b) do

begin

val(b[j],tb);

x:=ta*tb+x;

end;

end;

for i:=length(a)+length(b)-1 downto 1 do

begin

x:=x+x[i] div 10;

x[i]:=x[i] mod 10;

end;

end;

begin

readln(a);

readln(b);

chen(a,b);

if x[0]=0 then

for i:=1 to length(a)+length(b)-1 do

write(x[i],' ')

else

for i:=0 to length(a)+length(b)-1 do

write(x[i]);

end.