function Reverse(var value :string; start :integer) :string;
var
  StrTmp :string;
begin
  if start <= length(value) then
  begin
    StrTmp := '';
   // getting the word
    while (start <= length(value)) and
          (value[start] <> ' ') do
    begin
      StrTmp := StrTmp +value[start];
      Inc(start);
    end;
  // preserve spaces and put it before the word
    while value[start] = ' ' do
    begin
      StrTmp := ' ' +StrTmp;
      Inc(start);
    end;
  // recursive call to get the next word and insert it before the actual - StrTmp
    Reverse := Reverse(value, start) +StrTmp;
  end else
    ReverseWord := '';
end;
 
var
  sl :string;
begin
  readln(sl);
  sl := Reverse(sl, 1);
  writeln(sl);
end.