program ideone;

var
q, i, j, itl, itr: integer;
s: string;
d: string = 'abcdefgh';
fl1, skip: boolean;

begin
    read(s);

    itr := length(s) - 1;
    itl := itr - 1;

    while s[itl] <> ' ' do
    itl := itl - 1;
    itl := itl + 1;

    skip := False;

    for i := 1 to itl - 1 do
    begin


    if (s[i] = ' ') and not(skip) then
    begin
        j := i - 1;

        while (j > 1) and (s[j - 1] <> ' ') do
            j := j - 1;

        fl1 := False;

        if itr - itl = i - 1 - j then
            for q := 0 to (itr - itl) do
                if (s[j + q] <> s[itl + q]) then
                    fl1 := True;
        if itr - itl <> i - 1 - j then
            fl1 := True;

        if fl1 then
        begin
            while j < i - 1 do
            begin
                write(s[j]);
                j := j + 1;
            end;

            write(' ');
        end;

        skip := True;
    end;

    if (s[i] <> ' ') and (skip) then
        skip := False;
    end;
end.