program storearray;

var testarry : array[0..9] of byte absolute $AF00;

procedure putnum;
begin
 inline($21/$00/$AF/
        $06/$0A/
        $70/
        $23/
        $10/$FC);
end;

var count : byte;

begin
putnum;
for count:=9 downto 0 do
 begin
  writeln(testarry[count]);
 end;
end.