module prova_registro(); 
 
   reg in; 
   reg beta; 
   wire out; 
   reg 	clock; 
   
   registro  r(out, in, beta, clock); 
   
   always 
     begin
	#5 clock = ~clock; 
	#1 clock = ~clock; 
     end
   
   initial
     begin
	$dumpfile("registro.vlc");
	$dumpvars;
	
	clock = 0; 

	in = 1; 
	beta = 0; 
	
	#5 beta = 1; 
	#10  in = 0; 
	#5 beta = 0; 
	#5 in = 1;
	#10 beta = 1;
	#5 in = 0;
	 
	#50 $finish; 
	
     end
endmodule