1reg x = 0;
2always @(posedge clock.val) begin
3  x <= 1;
4  if (x) begin
5    $write("1");
6    $finish;
7  end else
8    $write("0");
9end
10