//%set debug_print_ccode = true
main module ogwi
//use TEXTIO
procedure ogwi
    param
	A : optional in ref packed array [1..?N] of char
    endparam

    declare (B : cardinal)
    B := sizeof (A)
  //  out_string (TTY, "size of A = ")
  //  out_integer (TTY, integer (sizeof (A)))
  //  out_record  (TTY)
  //  out_line (TTY, A)
endprocedure
ogwi ("Joe")
ogwi ()
ogwi ("WHAT JUST CAME OUT?")
endmodule