var
a:string;
i:longint;
begin
while not eof do begin
readln(a);
for i:=1 to length(a) do if (ord(a[i])>=1) and (ord(a[i])<=127) then write
else write(a[i]);
writeln;
end;
end.