var s:string;
i:integer;
begin
readln (s);
for i:=1 to Length(s)-1 do
if (s[i]=' ') and (s[i+1]<>' ') then write (copy(s,1,i+1),'.')
end.
var s:string;
i:integer;
begin
readln (s);
for i:=1 to Length(s)-1 do
if (s[i]=' ') and (s[i+1]<>' ') then write (copy(s,1,i+1),'.')
end.