#define F(x,y,z)for y:=succ(x)to y do write(#z);
var c,d:char;begin
repeat
read(c);F(d,c,+)F(c,d,-)d:=c;write(".")until 1=0end.