program treisprezece;
var n:integer;
    f:text;
    a:longint;
begin
assign(f,'in.txt');
reset(f);
a:=0;
while not eof(f) do begin
readln(f,n);
a:=a*10+n;
end;
close(f);
append(f);
writeln(f);
writeln(f,a);
close(f);
end.