const iso_char: array [0..127] of byte =
   ($c7,$fc,$e9,$e2,$e4,$e0,$e5,$e7
   ,$ea,$eb,$e8,$ef,$ee,$ec,$c4,$c5
   ,$c9,$e6,$c6,$f4,$f6,$f2,$fb,$f9
   ,$20,$d6,$dc,$a2,$a3,$a5,$d7,$20
   ,$ed,$ed,$f3,$fa,$f1,$d1,$aa,$ba
   ,$bf,$ae,$ac,$bd,$bc,$a1,$ab,$bb
   ,$20,$20,$20,$20,$20,$c1,$c2,$c0
   ,$a9,$20,$20,$20,$20,$20,$20,$20
   ,$20,$20,$20,$20,$20,$20,$e3,$c3
   ,$20,$20,$20,$20,$20,$20,$20,$a4
   ,$fe,$de,$ca,$cb,$c8,$20,$cd,$ce
   ,$cf,$20,$20,$20,$20,$a6,$cc,$20
   ,$d3,$df,$d4,$d2,$f5,$d5,$b5,$f0
   ,$d0,$da,$db,$d9,$fd,$dd,$af,$b4
   ,$ad,$b1,$20,$be,$b6,$a7,$f7,$b8
   ,$b0,$b7,$20,$b9,$b3,$b2,$20,$20);

var inf,outf: text;
    s:        string;
    i:        word;

begin
  if paramcount = 2 then begin
    assign(inf,paramstr(1));
    reset(inf);
    assign(outf,paramstr(2));
    rewrite(outf);
    while not eof(inf) do begin
      readln(inf,s);
      for i:=1 to length(s) do
        if s[i]>char(127) then
          s[i]:=char(iso_char[byte(s[i])-128]);
      writeln(outf,s)
    end;
    close(inf);
    close(outf)
  end
end.