module outio
%set debug_print_ccode=true
procedure OutChr( chr: char )
endprocedure {OutChr}

procedure OutStr( str: in ref packed array [1..?len] of char )
        OutChr(str[len])
endprocedure {OutStr}
endmodule