#include<fstream.h>
void main
{
   int i, n;
   char mas[255][255];
   ifstream fin("H1");
   ofstream fout("H2");
   for(n=0;fin;n++)
       fin.getline(255,10,'\n');
   fin.close();
   fin.open("H1");
   for(i=0;i<n;i++)
       fin.getline(255,10,'\n');
   fout<<mas[0]<<' ';
   for(i=1;i<n;i++)
       fout<<mas[i]<<' '<<mas[i]<<' ';
   fout<<mas[0];
}

program foo(input, output);
const
   N = 255;
var
   a0, ai: array[1..N] of integer;
   i, c0, j: integer;
begin
   assign(input, 'H1'); reset(input);
   assign(output, 'H2'); rewrite(output);
   i := 1;
   while not (seekeoln or seekeof and (i < N+1)) do
   begin
       read(a0[i]);
       write(a0[i], ' ');
       inc(i);
   end;
   dec(i);
   if (i > N) then halt(1); {Error - out of memory}
   c0 := i;
   if eof then
   begin
       for i := 1 to c0 do
           write(a0[i], ' ');
       halt(0);
   end;
   while not seekeof do
   begin
       i := 1;
       while not seekeoln and (i < N+1) do
       begin
           read(ai[i]);
           write(ai[i], ' ');
           inc(i);
       end;
       dec(i);
       if (i > N) then halt(1); {Error - out of memory}
       for j := 1 to i do
           write(ai[j], ' ');
   end;
   for j := 1 to c0 do
       write(a0[j], ' ');
   close(output);
end.

Private Sub Command1_Click()
Dim first() As Byte
Dim second() As Byte
Dim third() As Byte
Dim s1 As String
Dim s2 As String
Dim s3 As String
s1 = Trim(Text1.Text)
s2 = Trim(Text2.Text)
If Len(s1) > Len(s2) Then
m = Len(s1)
s2 = String(m - Len(s2), 48) + s2
Else
m = Len(s2)
s1 = String(m - Len(s1), 48) + s1
End If
ReDim first(1 To m), second(1 To m)
n = m
For x = 1 To m
first(x) = Val(Mid(s1, n, 1))
second(x) = Val(Mid(s2, n, 1))
n = n - 1
Next x
n = 1
ReDim third(1 To 2 * m)
For x = 1 To m
For y = 0 To m - 1
 third(x + y) = third(x + y) + (first(x) * second(y + 1)) Mod 10
 third(x + y + 1) = third(x + y + 1) + (first(x) * second(y + 1)) \ 10
 If third(x + y) > 9 Then h = third(x + y): third(x + y) = h Mod 10: third(x + y + 1) = third(x + y + 1) + h \ 10
Next y
Next x
s3 = ""
For x = 1 To UBound(third())
s3 = Trim(Str(third(x))) + s3
Next x
Do While Mid(s3, 1, 1) = "0"
s3 = Right(s3, Len(s3) - 1)
Loop
Text3.Text = s3
End Sub

program long_mult;
const MAX = 100;
type MyArray = array[1..MAX] of integer;
var
    a,b: MyArray;
    la, lb: integer;
    c: array[1..2*MAX+1] of integer;
    i,j,k: integer;
procedure readnum(var m: MyArray; var l: integer);
var
ch: char;
i, t: integer;
begin
    while not (ch in ['0'..'9']) do
 read(ch);
    while ch in ['0'..'9'] do
    begin
 inc(l);
    m[l] := byte(ch)-48;
 read(ch);
    end;
    readln;
    for i := 1 to l div 2 do
    begin
 t := m[i];
 m[i] := m[l-i+1];
 m[l-i+1] := t;
    end;
end;
begin
    {Input}
    assign(input, 'input.txt'); reset(input);
    assign(output, 'output.txt'); rewrite(output);
    readnum(a, la); readnum(b, lb);
    {Multiplication}
    for i := 1 to la do
 for j := 1 to lb do
     inc(c[i+j-1], a[i]*b[j]);
    {Normalize - one time}
    for i := 1 to 2*MAX do
    begin
 inc(c[i+1], c[i] div 10);
 c[i] := c[i] mod 10;
    end;
    {High-order digit and output}
    for k := 2*MAX+1 downto 2 do
 if c[k] > 0 then break;
    for i := k downto 1 do
 write(c[i]);
    writeln;
    close(output);
end.