% Preparation file for modulus calculation,
% with the prime modulus 223
% The exponents and logarithms are calculated
% with the base 3

(SETVECTPROG (QUOTE EXPVECT) 444)
1
3
9
27
81
20
60
180
94
59
177
85
32
96
65
195
139
194
136
185
109
104
89
44
132
173
73
219
211
187
115
122
143
206
172
70
210
184
106
95
62
186
112
113
116
125
152
10
30
90
47
141
200
154
16
48
144
209
181
97
68
204
166
52
156
22
66
198
148
221
217
205
169
61
183
103
86
35
105
92
53
159
31
93
56
168
58
174
76
5
15
45
135
182
100
77
8
24
72
216
202
160
34
102
83
26
78
11
33
99
74
222
220
214
196
142
203
163
43
129
164
46
138
191
127
158
28
84
29
87
38
114
119
134
179
91
50
150
4
12
36
108
101
80
17
51
153
13
39
117
128
161
37
111
110
107
98
71
213
193
133
176
82
23
69
207
175
79
14
42
126
155
19
57
171
67
201
157
25
75
2
6
18
54
162
40
120
137
188
118
131
170
64
192
130
167
55
165
49
147
218
208
178
88
41
123
146
215
199
151
7
21
63
189
121
140
197
145
212
190
124
149
1
3
9
27
81
20
60
180
94
59
177
85
32
96
65
195
139
194
136
185
109
104
89
44
132
173
73
219
211
187
115
122
143
206
172
70
210
184
106
95
62
186
112
113
116
125
152
10
30
90
47
141
200
154
16
48
144
209
181
97
68
204
166
52
156
22
66
198
148
221
217
205
169
61
183
103
86
35
105
92
53
159
31
93
56
168
58
174
76
5
15
45
135
182
100
77
8
24
72
216
202
160
34
102
83
26
78
11
33
99
74
222
220
214
196
142
203
163
43
129
164
46
138
191
127
158
28
84
29
87
38
114
119
134
179
91
50
150
4
12
36
108
101
80
17
51
153
13
39
117
128
161
37
111
110
107
98
71
213
193
133
176
82
23
69
207
175
79
14
42
126
155
19
57
171
67
201
157
25
75
2
6
18
54
162
40
120
137
188
118
131
170
64
192
130
167
55
165
49
147
218
208
178
88
41
123
146
215
199
151
7
21
63
189
121
140
197
145
212
190
124
149
1


(SETVECTPROG (QUOTE LOGVECT) 444)
NIL
0
180
1
138
89
181
210
96
2
47
107
139
147
168
90
54
144
182
172
5
211
65
163
97
178
105
3
126
128
48
82
12
108
102
77
140
152
130
148
185
204
169
118
23
91
121
50
55
198
136
145
63
80
183
196
84
173
86
9
6
73
40
212
192
14
66
175
60
164
35
157
98
26
110
179
88
95
106
167
143
4
162
104
127
11
76
129
203
22
49
135
79
83
8
39
13
59
156
109
94
142
103
75
21
78
38
155
141
20
154
153
42
43
131
30
44
149
189
132
186
214
31
205
220
45
170
124
150
119
194
190
24
160
133
92
18
187
122
16
215
51
115
32
56
217
206
199
68
221
137
209
46
146
53
171
64
177
125
81
101
151
184
117
120
197
62
195
85
72
191
174
34
25
87
166
161
10
202
134
7
58
93
74
37
19
41
29
188
213
219
123
193
159
17
15
114
216
67
208
52
176
100
116
61
71
33
165
201
57
36
28
218
158
113
207
99
70
200
27
112
69
111
NIL
0
180
1
138
89
181
210
96
2
47
107
139
147
168
90
54
144
182
172
5
211
65
163
97
178
105
3
126
128
48
82
12
108
102
77
140
152
130
148
185
204
169
118
23
91
121
50
55
198
136
145
63
80
183
196
84
173
86
9
6
73
40
212
192
14
66
175
60
164
35
157
98
26
110
179
88
95
106
167
143
4
162
104
127
11
76
129
203
22
49
135
79
83
8
39
13
59
156
109
94
142
103
75
21
78
38
155
141
20
154
153
42
43
131
30
44
149
189
132
186
214
31
205
220
45
170
124
150
119
194
190
24
160
133
92
18
187
122
16
215
51
115
32
56
217
206
199
68
221
137
209
46
146
53
171
64
177
125
81
101
151
184
117
120
197
62
195
85
72
191
174
34
25
87
166
161
10
202
134
7
58
93
74
37
19
41
29
188
213
219
123
193
159
17
15
114
216
67
208
52
176
100
116
61
71
33
165
201
57
36
28
218
158
113
207
99
70
200
27
112
69

