main module testh

use	textio

procedure p (a: in ref packed array[1..?n] of char)

out_integer (tty, high(a))
out_record (tty)

endprocedure 

p("ABC")
endmodule