var
s : string;
begin
read(s);
for var i := 1 to s.Length div 3 do insert('.', s, i*4);
writeln(s);
end.
var
s : string;
begin
read(s);
for var i := 1 to s.Length div 3 do insert('.', s, i*4);
writeln(s);
end.