Type arr=array[1..40001] Of longint；

Var a,b,c:arr；

la,lb,lc:word；

i,j,n:integer；

x:longint；

ch:char；

Begin

readln(n)；

la:=(n-1) Div 4+1；

lb:=la；

For i:=1 To n Do

Begin

read(ch)；

a[(n-i)div 4 +1]:=a[(n-i) div 4+1]*10+ord(ch)-ord(’0’)；

End；

readln；

For i:=1 To n Do

Begin

read(ch)；

b[(n-i) div 4 +1] :=b[(n-i) div 4+1]*10+ ord(ch)-ord(’0’)；

End；

For i:=1 To la Do

For j:=1 To lb Do

begin

inc(c[i+j-1],a[i]*b[j])；

inc(c[i+j],c[i+j-1] div 10000)；

c[i+j-1]:=c[i+j-1] mod 10000；

end；

If c[la+lb]<>0 Then lc := la+lb

Else lc := la+lb-1；

write(c[lc])；

For i:=lc-1 Downto 1 Do

Begin

if c[i] div 1000 =0 then write(0)；

if c[i] div 100 =0 then write(0)；

if c[i] div 10 =0 then write(0)；

write(c[i])；

End；

End.