module m;
reg [15:8] r;
integer i;
initial
begin
r = 8'b01101001;
for (i = 8; i <= 15; i = i + 1)
$display(r[i]);
end
endmodule