Олимпиада. Шпион

var
  i: integer;
  outs, s: string;
 
function dec2bin(x: integer): string;
var
  s: string;
begin
  s := '';
  while x > 0 do
  begin
    s := chr(ord('0') + x mod 2) + s;
    x := x div 2;
  end;
  dec2bin := s;
end;
 
function spy(ch: char): string;
var
  t: char;
  s: string;
  x, err: integer;
begin
  if (ch in ['.', ',', ':', ';', '?', '!', ' ']) or (ch in ['A'..'Z']) or (ch in ['a'..'z'])  then
  begin
    str(ord(ch), s);
    t := s[1];
    s[1] := s[2];
    s[2] := t;
    val(s, x, err);
    s := dec2bin(x);
    spy := s;
  end
  else
    spy := ch;
  
end;
 
begin
  outs := '';
  //readln(s);
  s := '2a+3B?';
  for i := 1 to length(s) do
  begin
    writeln(spy(s[i]));
    outs := outs + spy(s[i]);
  end;  
  writeln(outs);
end.

var
  s,r,t:string;
  j,i:integer;
begin
  readln(s);
  for i:=1 to length(s)do begin
    if s[i] in ['a'..'z','A'..'Z','а'..'я','А'..'Я','ё','Ё','.',',',':',';',' ','?','!'] then begin
      j:=ord(s[i]);t:='';
      while j>0 do begin
        t:=t+chr(j mod 2+48);
        j:=j div 2;
      end;  
      for j:=length(t) to 7 do t:=t+'0'
    end else t:=s[i];
    r:=r+t;
   end;
   writeln(r)
 end.