uses crt;
var v,r:text; 
s,s2:string;
i,d:integer;
begin
assign(v,'XAUCON.inp');
reset(v);
readln(v,s);
assign(r,'XAUCON.out');
rewrite(r);
if s[length(s)]<>' ' then insert(' ',s,length(s)+1);
d:=0;
while s<>'' do
begin
i:=1;
 while s[i]<>' ' do
 begin
  s2:=s2+s[i];
  i:=i+1;
 end;
 if s2[1]=s2[length(s2)] then
  begin
   writeln(r,s2);
   d:=d+1;
 end;
 delete(s,1,i);
 s2:='';
 i:=i+1;
end;
if d=0 then write(r,'-1');
close(r);
end.

uses crt;
var S, X : string;
    i, j : byte;
    f1, f2 : text;
    
begin
clrscr;
assign(f1, 'XAUCON.INP'); reset(f1);
assign(f2, 'XAUCON.OUT'); rewrite(f2);
readln(f1, S);

X := ''; j := 0;
for i := 1 to length(S) do
    begin
        if S[i] in ['A' .. 'z'] then X := X + S[i]
        else 
            begin
                if X[1] = X[length(X)] then writeln(f2, X);
                X := '';
                j := 1;
            end;
    end;
    
if j = 0 then write(f2, -1);

close(f1); close(f2);
end.