PROGRAM DISPLAYHEX;

PROCEDURE GETHEX(number : integer);
begin
 inline($0E/$00/
        $2A/number/
        $7D/
        $E6/$0F/
        $F5/
        $0C/
        $06/$04/
        $CB/$3C/
        $CB/$1D/
        $10/$FA/
        $7C/
        $B5/
        $20/$EF/
        $C5/
        $1E/$26/
        $0E/$02/
        $CD/$05/$00/
        $C1/
        $41/
        $F1/
        $FE/$0A/
        $38/$02/
        $C6/$07/
        $C6/$30/
        $5F/
        $C5/
        $0E/$02/
        $CD/$05/$00/
        $C1/
        $10/$ED);
end;

 var count : integer;

begin
 for count:=$ff00 to $ffff do
  begin
   gethex(count);
   writeln;
  end;
end.