program SITShit;
{$H+}

uses
  crt, sysutils;

var
  i, j: integer;
  s: string;
  symbols: array of char;
  isNotNew: boolean;

function tenToBin(ten: integer): string;
var
  converted: string;
begin
  if (ten = 0) or (ten = 1) then tenToBin := IntToStr(ten)
  else begin
    while (ten <> 0) do begin
      insert(IntToStr(ten mod 2), converted, 1);
      ten := ten div 2;
    end;
    tenToBin := converted;
  end;
end;

begin
  readln(s);
  s := LowerCase(s);
  SetLength(symbols, 1);
  symbols[0] := s[1];

  for i := 1 to length(s) do begin
    for j := 0 to high(symbols) do
      if (s[i] = symbols[j]) then begin
        isNotNew := true;
        break;
      end;
    if (not isNotNew) then begin
      SetLength(symbols, length(symbols) + 1);
      symbols[high(symbols)] := s[i];
    end;
    isNotNew := false;
  end;

  for i := 0 to high(symbols) do
    writeln(symbols[i], ' - ', tenToBin(i));

  readkey;
end.