Program problema;
var
str : string;
c: char;
word_start: integer;
i: integer;
begin
readln(str);
word_start := 1;
i := 1;
for c in str do
begin
if c = ' ' then
begin
Insert (str[i - 1],str,word_start);
i := i + 1;
word_start := i + 1;
end;
i := i + 1;
end;
Insert (str[i - 1],str,word_start);
writeln(str);
end.
