main module impconst
	%set use_routine_names =true

	use expconst
	declare
		a = a_const
		sc = s_const
		sd : s_type initially s_const
		sdc : s_type initially sc
		ss : static s_type 
		ssc : static s_type initially s_const
		sst : static s_const_type
		i,j : static integer
	enddeclare
	i := a
	ss := sc
	j := a_const
endmodule