var b:array[1..100] of string[70];
i,j,N,K,NN,v:INTEGER;
s:string[70];
s1,s2:string[32];

PROCEDURE REZ(S:STRING);(выделение слов из текста)
BEGIN
WHILE pos(' ',s)<>0 DO
BEGIN
INC(NN);
B[NN]:=COPY(S,1,POS(' ',S)-1);
DELETE(S,1,POS(' ',S));
END;
if pos(' ',s)=0 then
BEGIN
INC(NN);
B[NN]:=S;
END;
END;

PROCEDURE ROV(S:STRING);{ВЫРАВНИВАНИЕ УДАЛЕНИЕ ПЕРВЫХ ПУСТЫХ ПРОБЕЛОВ}
var i:integer;
BEGIN
IF S[1]=' ' THEN
BEGIN
REPEAT
DELETE(S,1,1);
UNTIL S[1]<>' ';
END;
for i:=1 to length(s) do
if (s[i]='.') or (s[i]=',') then s[i]:=' ';
rez(s);
END;

procedure GOP(s:string);(выделение слов состоящих из различных строчных и заглавных букв)
var i,j,n:integer;
begin
n:=0;
for j:=1 to length(s) do
if (pos(s[j],copy(s,j+1,length(s)))=0)
and ((pos(s1[pos(s[j],s2)],copy(s,j+1,length(s)))=0) and
(pos(s2[pos(s[j],s1)],copy(s,j+1,length(s)))=0)) then inc(n);
if (n=length(s)) and (s<>'') then
begin
writeln(s);
inc(v);
end;
end;

begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
s1:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
s2:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
while not eof do
begin
READLN(s);
if s<>'' then rov(s);
end;
for i:=1 to nn do
begin
if pos('-',b[i])<>0 then {РАБОТА СО СЛОВАМИ ПЕРЕНОСА - ОБЪЕДИНЕНИЕ}
begin
b[i]:=b[i]+b[i+1];
delete(b[i],pos('-',b[i]),1);
b[i+1]:='';
end;
end;
for i:=1 to nn do
begin
if b[i]<>' ' then GOP(B[I]);
end; {ВЫЗОВ ПРОЦЕДУРЫ ОПРЕДЕЛЕНИЯ СЛОВ СОСТОЯЩИХ ИЗ РАЗНЫХ СИМВОЛОВ И ВЫВОД ИХ НА ПЕЧАТЬ}
if v=0 then write('NO');
END.