1reg[3:0] COUNT = 0; 2always @(posedge clock.val) begin 3 COUNT <= COUNT + 1; 4end 5 6genvar i; 7for (i = 0; i < 8; i = i + 1) begin 8 always @(posedge clock.val) if (COUNT == i) $write(i); 9end 10 11always @(posedge clock.val) if (COUNT == 8) $finish; 12