'<PCODE "UVHACK">

<PACKAGE "UVHACK"> 

<ENTRY UV-TO-STR STR-TO-UV> 

<SETG UV-TO-STR  %<RSUBR!- '[ %<PCODE!- "UVHACK" 0> UV-TO-STR #DECL ("VALUE" 
STRING UVECTOR)]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,UV-TO-STR PGLUE ![0!]>> 


<SETG STR-TO-UV %<RSUBR-ENTRY '[UV-TO-STR STR-TO-UV #DECL ("VALUE" UVECTOR 
STRING)] 31>> 

<ENDPACKAGE>