program z1;
var
    n: longint;
    digits: array[1..10] of byte;
    q_digits: byte;
    digit: byte;
    i: byte;
    flag: boolean;
     f,f1:text;

begin
assign(f,'count.in');
assign(f1,'count.out');
reset(f);
readln(n);
    if n < 0 then
        n:= abs(n);
    q_digits:= 0;
    repeat
        digit:= n mod 10;
        flag:= false;
        for i:=1 to q_digits do
            if digit = digits[i] then begin
                flag:= true;
                break
            end;
        if flag = false then begin
            q_digits:= q_digits + 1;
            digits[q_digits]:= digit;
        end;
        n:= n div 10
    until n = 0;
    for i:=q_digits downto 1 do
    rewrite(f1);
        writeln(digits[i]:3);
close(f);
close(f1);
end.