main module outflex
    use TEXTIO
    procedure OUTFLEX
	param
	    A : out val packed array [1..?N] of char
	endparam
 	A := "ABCDEF"
    endprocedure

    declare
	B : static packed array [1..6] of char
    enddeclare

    B := "123456"
    OUTFLEX (B)

    out_line (TTY, B)
    out_record (TTY)
endmodule