===== PascalABC.NET =====
begin
var s := ReadlnString;
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'x', 'X': s[i] := '1'
end;
Println(s)
end.
