How do you plan to solve it?
module sipo4 ( input CLK, input RST, input serial_in, output reg [3:0] Q ); always@(posedge CLK or posedge RST)begin if(RST)begin Q <= 0; end else begin Q <= {serial_in, Q[3:1]}; end end endmodule