program mn;
uses crt;
var s:set of 'a'..'z';
i:integer;
n:string;
BEGIN
ClrSCr;
s:=[];
Write('Stroka:');readln(n);
for i:=1 to length(n) do
begin
if n[i] in s
then n[i]:='-'
else s:=s+[n[i]];
end;
writeln(n);
readln;
END.