//---------------------------------------------------------------------
// example of importing a complicated structure with initial conditions
//---------------------------------------------------------------------
Main Module IMPORTSTR

	use TEXTIO
	Use EXPORTSTR	// Must use a USE statement
//	import B_type, A_type  from EXPORTSTR

	Declare
		C_dyn		: B_type	
		C_static	: static B_Type	
	EndDeclare

    procedure T ( A : in ref B_type)
	out_string (TTY, A . stg)
	out_string (TTY, " . B_2 . A_1 = ")
	out_integer (TTY, A . B_2 . A_1)
	out_string (TTY, " . B_2 . A_2 = ")
	out_integer (TTY, A . B_2 . A_2)
	out_record (TTY) 
    endprocedure

    T (C_static)
    T (C_dyn)
EndModule