module forceit
	procedure bang ( i : out ref general )
		force integer (i) := 10
	endprocedure

	procedure bong ( i : inout ref general )
		force integer (i) := 10
	endprocedure
endmodule