Program Text;
var
s:string;
k:set of byte;
i: byte;
begin
readln(s);
k:=[0,1,2,3,4,5,6,7,8,9];
for i:=1 to length(s) do
if ord(s[i]) - 48 in k then
s[i]:='Ф';
write(s);
end.
Program Text;
var
s:string;
k:set of byte;
i: byte;
begin
readln(s);
k:=[0,1,2,3,4,5,6,7,8,9];
for i:=1 to length(s) do
if ord(s[i]) - 48 in k then
s[i]:='Ф';
write(s);
end.