var c:char;begin repeat read(c);write((". 0987654321")[ord(c)mod 15])until 0>0end.