main module charx
	use charexp

	use TEXTIO

	// initialize the characters in the imported array
	CHARINIT ()

	declare
	    Temp : packed array [1..80] of char
	enddeclare

	Temp := CHAREXP

	out_line (TTY, TEMP)
	out_line (TTY, CHAREXP)
endmodule