begin

                $dumpvars;
                $dumpfile("bshifter.dump");
                $monitor($time,,, "A=%b LEFT=%b TYPE=%d COUNT=%d Z=%b", A,
                         LEFT, TYPE, COUNT, Z);
                // Include the monitor output in your submission.
       
                A = 0; LEFT = 0; TYPE = 0; COUNT = 0;

                #10 TYPE = 0; A = 2; LEFT = 1; COUNT = 10; //No Shift

                #10 A = 7; LEFT = 0; COUNT = 2;
                
                #10 TYPE = 1; A = 14; LEFT = 1; COUNT = 4; //Arithmetic Shift

                #10 A[15] = 1'b1; LEFT = 0; COUNT = 6;              

                #10 TYPE = 2; A = 9; LEFT = 1; COUNT = 2; //Rotate

                #10 A = 17; LEFT = 0; COUNT = 5;
                
                #10 TYPE = 3; A = 9; LEFT = 1; COUNT = 6; //Logical Shift
                
                #10 A = 13; LEFT = 0; COUNT = 8;
                
                #10 TYPE  = 0; A = 4;

                #10  A  = 0;
                       
                #30 $finish;

          end