)> XORG YORG )> COMSWITCH )> (VALUE) LIST (COMSWITCH)) ()) (T (> >))>> (VALUE) ATOM) ,IMAGE .LIST> ,NULL> (VALUE) ATOM (Z) ]> (COMSWITCH)) ) (T ) >> )> #FUNCTION ((XE YE) #DECL ((XE YE) FIX) ,IMAGE >) .X .Y> >) ( ) >> )> #FUNCTION ((XE YE) #DECL ((XE YE) FIX) ,IMAGE >) .X .Y> >) (T ) >> )> #FUNCTION ((XE YE) #DECL ((XE YE) FIX) ,IMAGE >) .X .Y> >)> )> ,NULL> ) ) (T )> ,NULL> ) ) (T )> ,NULL> (Z) ]> (COMSWITCH) (VALUE) ATOM) ) (T !>>)> ,NULL> (Z) ]> (COMSWITCH) (VALUE) ATOM) ) (T >>)> ,NULL> (Z) ]> (COMSWITCH) (VALUE) ATOM) ) (T !> ! !> 13>)> ,NULL> (Z) ]> (COMSWITCH) (D) (VALUE) ATOM) ) (T >>> )> ,NULL> ) (Y <+ .Y1 ,YORG>)) #DECL ((X Y X1 Y1 LX LY HX HY) FIX (VALUE) ) >> >> >> >> > > > > (.HY .LY .HX .LX)> (VALUE) STRING (OUTCHAN) ) >> )> > #FUNCTION ((XE YE) #DECL ((XE YE) FIX) #FUNCTION ((L) #DECL ((L) FIX) .OUTCHAN>) >) .X .Y> "DONE"> >