SELECT./Hello World

From Esolang
Jump to: navigation, search

The first "Hello World!" program written in SELECT. It is by no means the shortest or most elegant such program possible, but merely the easiest to write. In fact, it is extraordinarily wasteful in all ways that a program can be wasteful. Generated by SELECT. Code Generator v0.3 by User:Quintopia.

(65,17,1)

  DRAW STRING LITERAL "Hello World!'

     DRAW LETTER "H" AT (-30,-6)

        MAKE -29+-4I:

           MAKE 4:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 4

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -29+-4I
        
     PRINT. RIGHT. 
        
        MAKE -29+-3I:

           MAKE 3:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 3

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -29+-3I
        
     PRINT. RIGHT. 
        
        MAKE -29+-2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -29+-2I
        
     PRINT. RIGHT. 
        
        MAKE -29+-1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -29+-1I
        
     PRINT. RIGHT. 
        
        MAKE -29:

           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -29
        
     PRINT. RIGHT. 
        
        MAKE -29+1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -29+1I
        
     PRINT. RIGHT. 
        
        MAKE -29+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -29+2I
        
     PRINT. RIGHT. 
        
        MAKE -28+-1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -28+-1I
        
     PRINT. RIGHT. 
        
        MAKE -27+-1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -27+-1I
        
     PRINT. RIGHT. 
        
        MAKE -26+-1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -26+-1I
        
     PRINT. RIGHT. 
        
        MAKE -26:

           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -26
        
     PRINT. RIGHT. 
        
        MAKE -26+1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -26+1I
        
     PRINT. RIGHT. 
        
        MAKE -26+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -26+2I
        
     PRINT. RIGHT. 
        
        MAKE -26+-2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -26+-2I
        
     PRINT. RIGHT. 
        
        MAKE -26+-3I:

           MAKE 3:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 3

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -26+-3I
        
     PRINT. RIGHT. 
        
        MAKE -26+-4I:

           MAKE 4:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 4

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -26+-4I
        
     PRINT. RIGHT. 
     END DRAW LETTER "H"

     DRAW LETTER "e" AT (-25,-6)

        MAKE -23+-2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -23+-2I
        
     PRINT. RIGHT. 
        
        MAKE -22+-2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -22+-2I
        
     PRINT. RIGHT. 
        
        MAKE -24+-1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -24+-1I
        
     PRINT. RIGHT. 
        
        MAKE -21+-1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -21+-1I
        
     PRINT. RIGHT. 
        
        MAKE -24:

           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -24
        
     PRINT. RIGHT. 
        
        MAKE -23:

           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -23
        
     PRINT. RIGHT. 
        
        MAKE -22:

           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -22
        
     PRINT. RIGHT. 
        
        MAKE -21:

           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -21
        
     PRINT. RIGHT. 
        
        MAKE -24+1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -24+1I
        
     PRINT. RIGHT. 
        
        MAKE -23+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -23+2I
        
     PRINT. RIGHT. 
        
        MAKE -22+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -22+2I
        
     PRINT. RIGHT. 
        
        MAKE -21+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -21+2I
        
     PRINT. RIGHT. 
     END DRAW LETTER "e"

     DRAW LETTER "l" AT (-20,-6)

        MAKE -20+-5I:

           MAKE 5:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 5

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -20+-5I
        
     PRINT. RIGHT. 
        
        MAKE -19+-5I:

           MAKE 5:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 5

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -19+-5I
        
     PRINT. RIGHT. 
        
        MAKE -18+-5I:

           MAKE 5:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 5

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -18+-5I
        
     PRINT. RIGHT. 
        
        MAKE -18+-4I:

           MAKE 4:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 4

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -18+-4I
        
     PRINT. RIGHT. 
        
        MAKE -18+-3I:

           MAKE 3:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 3

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -18+-3I
        
     PRINT. RIGHT. 
        
        MAKE -18+-2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -18+-2I
        
     PRINT. RIGHT. 
        
        MAKE -18+-1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -18+-1I
        
     PRINT. RIGHT. 
        
        MAKE -18:

           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -18
        
     PRINT. RIGHT. 
        
        MAKE -18+1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -18+1I
        
     PRINT. RIGHT. 
        
        MAKE -17+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -17+2I
        
     PRINT. RIGHT. 
        
        MAKE -16+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -16+2I
        
     PRINT. RIGHT. 
     END DRAW LETTER "l"

     DRAW LETTER "l" AT (-15,-6)

        MAKE -15+-5I:

           MAKE 5:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 5

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -15+-5I
        
     PRINT. RIGHT. 
        
        MAKE -14+-5I:

           MAKE 5:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 5

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -14+-5I
        
     PRINT. RIGHT. 
        
        MAKE -13+-5I:

           MAKE 5:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 5

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -13+-5I
        
     PRINT. RIGHT. 
        
        MAKE -13+-4I:

           MAKE 4:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 4

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -13+-4I
        
     PRINT. RIGHT. 
        
        MAKE -13+-3I:

           MAKE 3:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 3

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -13+-3I
        
     PRINT. RIGHT. 
        
        MAKE -13+-2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -13+-2I
        
     PRINT. RIGHT. 
        
        MAKE -13+-1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -13+-1I
        
     PRINT. RIGHT. 
        
        MAKE -13:

           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -13
        
     PRINT. RIGHT. 
        
        MAKE -13+1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -13+1I
        
     PRINT. RIGHT. 
        
        MAKE -12+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -12+2I
        
     PRINT. RIGHT. 
        
        MAKE -11+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -11+2I
        
     PRINT. RIGHT. 
     END DRAW LETTER "l"

     DRAW LETTER "o" AT (-10,-6)

        MAKE -8+-2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -8+-2I
        
     PRINT. RIGHT. 
        
        MAKE -7+-2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -7+-2I
        
     PRINT. RIGHT. 
        
        MAKE -9+-1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -9+-1I
        
     PRINT. RIGHT. 
        
        MAKE -9:

           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -9
        
     PRINT. RIGHT. 
        
        MAKE -9+1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -9+1I
        
     PRINT. RIGHT. 
        
        MAKE -8+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -8+2I
        
     PRINT. RIGHT. 
        
        MAKE -7+2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -7+2I
        
     PRINT. RIGHT. 
        
        MAKE -6+-1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -6+-1I
        
     PRINT. RIGHT. 
        
        MAKE -6:

           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -6
        
     PRINT. RIGHT. 
        
        MAKE -6+1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. 
           
           MAKE 1/K:
           RIGHT. EXP. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           EXP. LEFT. SELECT.
           
           MARK AS makenumsign
           LOG. RIGHT. SELECT.
           
           END MAKE 1/K
           
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        COMBINE SIGN
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE -6+1I
        
     PRINT. RIGHT. 
     END DRAW LETTER "o"

     DRAW LETTER "W" AT (0,-6)

        MAKE -4I:

           MAKE -4:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -4

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. LEFT. LOG. RIGHT. SELECT.
        LEFT. 
     PRINT. RIGHT. 
        
        MAKE -3I:

           MAKE -3:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -3

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. LEFT. LOG. RIGHT. SELECT.
        LEFT. 
     PRINT. RIGHT. 
        
        MAKE -2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. LEFT. LOG. RIGHT. SELECT.
        LEFT. 
     PRINT. RIGHT. 
        
        MAKE 1+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 1+-2I
        
     PRINT. RIGHT. 
        
        MAKE 1+-1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 1+-1I
        
     PRINT. RIGHT. 
        
        MAKE 1:
        LOG. SELECT.
        
     PRINT. RIGHT. 
        
        MAKE 1+1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 1+1I
        
     PRINT. RIGHT. 
        
        MAKE 1+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 1+2I
        
     PRINT. RIGHT. 
        
        MAKE 2+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 2+-2I
        
     PRINT. RIGHT. 
        
        MAKE 2+-1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 2+-1I
        
     PRINT. RIGHT. 
        
        MAKE 3+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 3+-2I
        
     PRINT. RIGHT. 
        
        MAKE 3+-1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 3+-1I
        
     PRINT. RIGHT. 
        
        MAKE 3:
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 3
        
     PRINT. RIGHT. 
        
        MAKE 3+1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 3+1I
        
     PRINT. RIGHT. 
        
        MAKE 3+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 3+2I
        
     PRINT. RIGHT. 
        
        MAKE 4+-4I:

           MAKE -4:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -4

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 4+-4I
        
     PRINT. RIGHT. 
        
        MAKE 4+-3I:

           MAKE -3:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -3

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 4+-3I
        
     PRINT. RIGHT. 
        
        MAKE 4+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 4+-2I
        
     PRINT. RIGHT. 
     END DRAW LETTER "W"

     DRAW LETTER "o" AT (5,-6)

        MAKE 7+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 7+-2I
        
     PRINT. RIGHT. 
        
        MAKE 8+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 8+-2I
        
     PRINT. RIGHT. 
        
        MAKE 6+-1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 6+-1I
        
     PRINT. RIGHT. 
        
        MAKE 6:
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 6
        
     PRINT. RIGHT. 
        
        MAKE 6+1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 6+1I
        
     PRINT. RIGHT. 
        
        MAKE 7+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 7+2I
        
     PRINT. RIGHT. 
        
        MAKE 8+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 8+2I
        
     PRINT. RIGHT. 
        
        MAKE 9+-1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 9+-1I
        
     PRINT. RIGHT. 
        
        MAKE 9:
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 9
        
     PRINT. RIGHT. 
        
        MAKE 9+1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 9+1I
        
     PRINT. RIGHT. 
     END DRAW LETTER "o"

     DRAW LETTER "r" AT (10,-6)

        MAKE 12+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 12+-2I
        
     PRINT. RIGHT. 
        
        MAKE 13+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 13+-2I
        
     PRINT. RIGHT. 
        
        MAKE 14+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 14+-2I
        
     PRINT. RIGHT. 
        
        MAKE 12+-1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 12+-1I
        
     PRINT. RIGHT. 
        
        MAKE 12:
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 12
        
     PRINT. RIGHT. 
        
        MAKE 12+1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 12+1I
        
     PRINT. RIGHT. 
        
        MAKE 12+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 12+2I
        
     PRINT. RIGHT. 
     END DRAW LETTER "r"

     DRAW LETTER "l" AT (15,-6)

        MAKE 15+-5I:

           MAKE -5:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -5

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 15+-5I
        
     PRINT. RIGHT. 
        
        MAKE 16+-5I:

           MAKE -5:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -5

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 16+-5I
        
     PRINT. RIGHT. 
        
        MAKE 17+-5I:

           MAKE -5:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -5

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 17+-5I
        
     PRINT. RIGHT. 
        
        MAKE 17+-4I:

           MAKE -4:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -4

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 17+-4I
        
     PRINT. RIGHT. 
        
        MAKE 17+-3I:

           MAKE -3:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -3

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 17+-3I
        
     PRINT. RIGHT. 
        
        MAKE 17+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 17+-2I
        
     PRINT. RIGHT. 
        
        MAKE 17+-1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 17+-1I
        
     PRINT. RIGHT. 
        
        MAKE 17:
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 17
        
     PRINT. RIGHT. 
        
        MAKE 17+1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 17+1I
        
     PRINT. RIGHT. 
        
        MAKE 18+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 18+2I
        
     PRINT. RIGHT. 
        
        MAKE 19+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 19+2I
        
     PRINT. RIGHT. 
     END DRAW LETTER "l"

     DRAW LETTER "d" AT (20,-6)

        MAKE 24+-5I:

           MAKE -5:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -5

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 24+-5I
        
     PRINT. RIGHT. 
        
        MAKE 24+-4I:

           MAKE -4:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -4

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 24+-4I
        
     PRINT. RIGHT. 
        
        MAKE 24+-3I:

           MAKE -3:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -3

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 24+-3I
        
     PRINT. RIGHT. 
        
        MAKE 24+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 24+-2I
        
     PRINT. RIGHT. 
        
        MAKE 24+-1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 24+-1I
        
     PRINT. RIGHT. 
        
        MAKE 24:
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 24
        
     PRINT. RIGHT. 
        
        MAKE 24+1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 24+1I
        
     PRINT. RIGHT. 
        
        MAKE 24+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 24+2I
        
     PRINT. RIGHT. 
        
        MAKE 23+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 23+-2I
        
     PRINT. RIGHT. 
        
        MAKE 23+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 23+2I
        
     PRINT. RIGHT. 
        
        MAKE 22+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 22+-2I
        
     PRINT. RIGHT. 
        
        MAKE 22+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 22+2I
        
     PRINT. RIGHT. 
        
        MAKE 21+-1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 21+-1I
        
     PRINT. RIGHT. 
        
        MAKE 21:
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 21
        
     PRINT. RIGHT. 
        
        MAKE 21+1I:

           MAKE 1:
           LOG. SELECT.
           
        RIGHT. 
           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 21+1I
        
     PRINT. RIGHT. 
     END DRAW LETTER "d"

     DRAW LETTER "!" AT (25,-6)

        MAKE 28+-4I:

           MAKE -4:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -4

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 28+-4I
        
     PRINT. RIGHT. 
        
        MAKE 28+-3I:

           MAKE -3:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -3

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 28+-3I
        
     PRINT. RIGHT. 
        
        MAKE 28+-2I:

           MAKE -2:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K
              
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. 
           COMBINE SIGN
           EXP. LEFT. SELECT.
           RIGHT. LOG. RIGHT. SELECT.
            
           END MAKE -2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 28+-2I
        
     PRINT. RIGHT. 
        
        MAKE 28+-1I:

           MAKE -1:

              MAKE 1/K:
              RIGHT. EXP. SELECT.
              LEFT. LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              MARK AS makenumsign
              LOG. RIGHT. SELECT.
              
              END MAKE 1/K

           END MAKE -1

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 28+-1I
        
     PRINT. RIGHT. 
        
        MAKE 28:
        EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 28
        
     PRINT. RIGHT. 
        
        MAKE 28+2I:

           MAKE 2:
           EXP. SELECT.
           EXP. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
           LEFT. LOG. RIGHT. SELECT.
            
           END MAKE 2

           
           MAKE I:

              MAKE 1/2:
              RIGHT. EXP. SELECT.
              EXP. LEFT. SELECT.
              RIGHT. LOG. LEFT. SELECT.
              LOG. RIGHT. SELECT.
              EXP. LEFT. SELECT.
              
              END MAKE 1/2
              
           RIGHT. 
              
              MAKE -1:

                 MAKE 1/K:
                 RIGHT. EXP. SELECT.
                 LEFT. LOG. RIGHT. SELECT.
                 EXP. LEFT. SELECT.
                 
                 MARK AS makenumsign
                 LOG. RIGHT. SELECT.
                 
                 END MAKE 1/K
                 
              LEFT. 
              END MAKE -1
              
           EXP. LEFT. SELECT.
           RIGHT. 
           END MAKE I
           
        RIGHT. EXP. LEFT. SELECT.
        RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
        RIGHT. RIGHT. RIGHT. 
        MARK AS makenumimagpart
        RIGHT. EXP. SELECT.
        EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. EXP. RIGHT. SELECT.
        LEFT. 
        COMBINE IMAGINARY PART
        EXP. LEFT. SELECT.
        RIGHT. LOG. RIGHT. SELECT.
        LEFT. LOG. RIGHT. SELECT.
        LEFT. 
        END MAKE 28+2I
        
     PRINT. RIGHT. 
     END DRAW LETTER "!"

  END DRAW STRING LITERAL "Hello World!'
  
######GENERATION CODE######
init(65,17,1)
drawString("Hello World!",-30,-6)
writetofile("helloworld")