initial
  begin
    $dumpvars;
    $dumpfile ("hw109p1");
    selbar = 0;
    a[0:7] = 0;
#10 a[0] = 1;
#10 a[1] = 1;
    a[0] = 0;
#10 a[2] = 1;
    a[1] = 0;
#10 a[3] = 1;
    a[2] = 0;
#10 a[4] = 1;
    a[3] = 0;
#10 a[5] = 1;
    a[4] = 0;
#10 a[6] = 1;
    a[5] = 0;
#10 a[7] = 1;
    a[6] = 0;
#10 selbar = 1;
#10 selbar = 0;
#10 $finish;
  end