`timescale 1ns/10ps
module test;
reg [15:0] a1;
initial
begin
$monitor ("a1[0]=%b",a1[0]);
for (a1 = 16'h01; a1 != 16'h1f; a1 = a1 + 1)
#1;
end
endmodule