var a:string;i,j:integer;beginreadln(a);while pos('#',a)<>0 do delete(a,pos('#',a),1);
for i:=1 to length(a) dofor j:=1 to 2 dowrite(a[i]);end.
var a:string;
i,j:integer;
begin
readln(a);
while pos('#',a)<>0 do delete(a,pos('#',a),1);
for i:=1 to length(a) do
for j:=1 to 2 do
write(a[i]);
end.