'<PCODE "EVIL">

<PACKAGE "EVIL"> 

<ENTRY EVIL GET-TTY> 

<SETG EVIL  %<RSUBR!- '[ %<PCODE!- "EVIL" 0> EVIL #DECL ("VALUE" <OR FALSE 
STRING> "ARGS" ANY) GET-TTY "PRINT" "JUNK >" OUTCHAN (CHANNEL) "DONE"]>> 

<AND <ASSIGNED? GLUE> .GLUE <PUT ,EVIL GLUE ![4379120709 68222721 30316445953 
4294967296 4651495168 1141391360 0 15 262157!]>> 

<SETG GET-TTY  %<RSUBR!- '[ %<PCODE!- "EVIL" 116> GET-TTY #DECL ("VALUE" ANY) T
]>> 

<ENDPACKAGE>