begin
readln(s);
t:=length(s);
s1:=s;
for i:=1 to t do begin
c:=s[i];
if (c in ['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'])or
(c in ['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']) then begin s1[i]:='.';
t1:=t1+1;end;
end;
writeln(s1);
t4:=t1;
t1:=round(t1/3);
for i:=1 to t do begin
c:=s[i];
if (c in ['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'])or
(c in ['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']) then begin
if (t2<t1) then begin t2:=t2+1;s2:=s2+c;end else s2:=s2+'.';end else s2:=s2+c;
end;
writeln(s2);
t3:=0;
s3:=s2;
t5:=length(s3);
for i:=1 to t do
if (s3[i]='.')and(s[i]in ['a','e','i','o','u','A','E','I','O','U']) then begin t3:=t3+1;s3[i]:=s[i];end;
if t3<>0 then writeln(s3) else
if t3=0 then begin
t4:=round(t4/3*2);
t2:=0;
for i:=1 to t do begin
c:=s[i];
if (c in ['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'])or
(c in ['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']) then begin
if (t2<t4) then begin t2:=t2+1;write(c);end else write('.');end else write(c);
end; end;
readln;
end.