module booth_encoder(mr,md,x,z); 
   input[3:0] mr,md;
   output [3:0] x,z;
   //reg [3:0] 	mr,md;
   reg [3:0] 	x,z;
   reg [1:0] 	i;
   always@(mr or md)
     begin
		
	x[0]=md[0];
	z[0]=md[0];
	x[1]=md[1]&~md[0];
	z[1]=md[1]^md[0];
	x[2]=md[2]&~md[1];
	z[2]=md[2]^md[1];
	x[3]=md[3]&~md[2];
	z[3]=md[3]^md[2];
     end
endmodule // booth_encoder