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

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


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

