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