Starting work on vertical binary  counter scrip[D[Dt