`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)
        begin
           #1;
        end
  end
endmodule