From f83fcead22e4fee7d80ef8356eb4167efd3f8880 Mon Sep 17 00:00:00 2001 From: Glenn Perez Date: Tue, 9 Oct 2018 23:49:59 +0800 Subject: [PATCH] a --- C/helloWorld.c | 15 +- Html/HelloWorld.html | 2 +- Python/BubbleSort.py | 44 +- Python/Hello-World.py | 4 +- Python/Hello-world.py | 4 +- SELECT/helloworld | 9884 +++++++++++++++++++++++++++++++++++++++++ 6 files changed, 9909 insertions(+), 44 deletions(-) create mode 100644 SELECT/helloworld diff --git a/C/helloWorld.c b/C/helloWorld.c index 854ebffea..611912ba4 100644 --- a/C/helloWorld.c +++ b/C/helloWorld.c @@ -1,9 +1,10 @@ -#include -int main() +#include +char copy() { - int i; - printf("Enter any number to print hello world"); - int j=scanf("%d",&i); - printf("The number is: %d",j); - printf("Welcome to the worlld of C programming"); + printf("Hello World\n"); +} +int main() +{ + copy(); + return 0; } diff --git a/Html/HelloWorld.html b/Html/HelloWorld.html index 17c8d7510..294f53b91 100644 --- a/Html/HelloWorld.html +++ b/Html/HelloWorld.html @@ -5,7 +5,7 @@ Hello World! - +

Hello World!

orange diff --git a/Python/BubbleSort.py b/Python/BubbleSort.py index 6837acdcf..3e0e30b9f 100644 --- a/Python/BubbleSort.py +++ b/Python/BubbleSort.py @@ -1,37 +1,13 @@ -def bubbleSort(arr): - n = len(arr) - - # Traverse through all array elements - for i in range(n): - - # Last i elements are already in place - for j in range(0, n-i-1): - - # traverse the array from 0 to n-i-1 - # Swap if the element found is greater - # than the next element - if arr[j] > arr[j+1] : - arr[j], arr[j+1] = arr[j+1], arr[j] - -# Driver code to test above -arr = [] -num1 = int(input('enter the value\n')) -num2 = int(input('enter the value\n')) -num3 = int(input('enter the value\n')) -num4 = int(input('enter the value\n')) -num5 = int(input('enter the value\n')) +import random -#For putting the values in list arr:- -arr.append(num1) -arr.append(num2) -arr.append(num3) -arr.append(num4) -arr.append(num5) +def bubbleSort(lists): + for j in range(0, len(lists)-1-i): + if(lists[j]>lists[j+1]): + lists[j+1], lists[j] = lists[j], lists[j+1] + +lists = random.sample(range(0, 5001), 5000) +print(lists) - -bubbleSort(arr) - -print ("Sorted array is:") -for i in range(len(arr)): - print ("%d" %arr[i]), +bubbleSort(lists) +print(lists) diff --git a/Python/Hello-World.py b/Python/Hello-World.py index 7df869a15..916bb2959 100644 --- a/Python/Hello-World.py +++ b/Python/Hello-World.py @@ -1 +1,3 @@ -print("Hello, World!") +num=int(input("enter a number")) +if(num==1): + print("Hello, World!") diff --git a/Python/Hello-world.py b/Python/Hello-world.py index 7df869a15..916bb2959 100644 --- a/Python/Hello-world.py +++ b/Python/Hello-world.py @@ -1 +1,3 @@ -print("Hello, World!") +num=int(input("enter a number")) +if(num==1): + print("Hello, World!") diff --git a/SELECT/helloworld b/SELECT/helloworld new file mode 100644 index 000000000..5c1addfaa --- /dev/null +++ b/SELECT/helloworld @@ -0,0 +1,9884 @@ + + 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!'