nx_capture_trace.nx source
↩ module page · 274 lines · 13488 B
1// nx_capture_trace.nx -- WHERE THE INFLATION CAPTURE HAPPENS. Consumers paid more; this traces WHO actually received
2// it and asks whether the people doing the work got ahead. Reads the same knowledge/anatomy/<good>.pack layers,
3// routes each layer price increase to a RECIPIENT (farmer / worker / input-supplier / capital-margin / rentier /
4// government), then applies the REAL-WAGE reality (BLS: nominal wages that merely matched inflation are NOT a gain).
5// The pull-ahead beyond real input costs and real wages is the CAPTURE wedge (margin + rentier), which lands in the
6// concentrated middle and flows to capital. Grounds the capture DESTINATION in structural facts (record corporate
7// profit share, rising markups, buybacks, falling farm share). LIAR-KILLED: recipient buckets conserve to the
8// measured increase, real gain <= nominal, neg-control, grounded source, driver conservation.
9// Build: _offc/nx_sov_build_run.elf nx_capture_trace license_tier: ORIGINAL
10import "nx_syscalls.nx"
11
12func gp(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(1, s, n); return 0 }
13func gn(v0: i64) -> i64 {
14 var v: i64 = v0; if v < 0 { sys_write(1, "-" as *u8, 1); v = 0 - v }
15 let b: *u8 = sys_mmap(24); var k: i64 = 0; if v == 0 { b[0] = 48 as u8; k = 1 }
16 while v > 0 { b[k] = (48 + (v % 10)) as u8; v = v / 10; k = k + 1 }
17 let o: *u8 = sys_mmap(24); var j: i64 = 0; while j < k { o[j] = b[k-1-j]; j = j + 1 } sys_write(1, o, k); return 0
18}
19func slen(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } return n }
20func streq(a: *u8, b: *u8) -> i64 { var i: i64 = 0; while a[i] != (0 as u8) { if a[i] != b[i] { return 0 } i = i + 1 } if b[i] != (0 as u8) { return 0 } return 1 }
21func startswith(s: *u8, pfx: *u8) -> i64 { var i: i64 = 0; while pfx[i] != (0 as u8) { if s[i] != pfx[i] { return 0 } i = i + 1 } return 1 }
22func pint(s: *u8) -> i64 { var v: i64 = 0; var i: i64 = 0; var neg: i64 = 0; if s[0] == (45 as u8) { neg = 1; i = 1 } while s[i] != (0 as u8) { let c: i64 = s[i] as i64; if c >= 48 { if c <= 57 { v = v * 10 + (c - 48) } } i = i + 1 } if neg == 1 { return 0 - v } return v }
23
24func ev_read(path: *u8, buf: *u8, cap: i64) -> i64 {
25 let fd: i64 = sys_openat_rd(path); if fd < 0 { return 0 - 1 }
26 var tot: i64 = 0; var go: i64 = 1
27 while go == 1 { if tot >= cap { go = 0 } else { let r: i64 = sys_read(fd, (buf as i64 + tot) as *u8, cap - tot); if r <= 0 { go = 0 } else { tot = tot + r } } }
28 sys_close(fd); return tot
29}
30func field_count(line: *u8, ln: i64) -> i64 { var n: i64 = 1; var i: i64 = 0; while i < ln { if line[i] == (124 as u8) { n = n + 1 } i = i + 1 } return n }
31func field_k(line: *u8, ln: i64, kk: i64, dst: *u8, cap: i64) -> i64 {
32 var field: i64 = 0; var s: i64 = 0; var i: i64 = 0; var fstart: i64 = 0; var fend: i64 = 0; var got: i64 = 0
33 while i <= ln {
34 var is_end: i64 = 0
35 if i == ln { is_end = 1 } else { if line[i] == (124 as u8) { is_end = 1 } }
36 if is_end == 1 { if field == kk { fstart = s; fend = i; got = 1 } field = field + 1; s = i + 1 }
37 i = i + 1
38 }
39 var t: i64 = 0
40 if got == 1 { var p: i64 = fstart; while p < fend { if t < cap - 1 { dst[t] = line[p]; t = t + 1 } p = p + 1 } }
41 dst[t] = 0 as u8
42 return t
43}
44func class_idx(n: *u8) -> i64 {
45 if streq(n, "farm" as *u8) == 1 { return 0 }
46 if streq(n, "labor" as *u8) == 1 { return 1 }
47 if streq(n, "energy" as *u8) == 1 { return 2 }
48 if streq(n, "freight" as *u8) == 1 { return 3 }
49 if streq(n, "materials" as *u8) == 1 { return 4 }
50 if streq(n, "margin" as *u8) == 1 { return 5 }
51 if streq(n, "rent" as *u8) == 1 { return 6 }
52 if streq(n, "policy" as *u8) == 1 { return 7 }
53 if streq(n, "finance" as *u8) == 1 { return 8 }
54 return 9
55}
56func recipient_of_class(c: i64) -> i64 {
57 if c == 0 { return 0 }
58 if c == 1 { return 1 }
59 if c == 2 { return 2 }
60 if c == 3 { return 2 }
61 if c == 4 { return 2 }
62 if c == 5 { return 3 }
63 if c == 6 { return 4 }
64 if c == 7 { return 5 }
65 if c == 8 { return 4 }
66 return 6
67}
68func recip_name(i: i64) -> *u8 {
69 if i == 0 { return "farmers (primary producers)" as *u8 }
70 if i == 1 { return "workers (wages) " as *u8 }
71 if i == 2 { return "input suppliers (fuel/mat) " as *u8 }
72 if i == 3 { return "CAPITAL (margin/markup) " as *u8 }
73 if i == 4 { return "rentiers (rent/finance) " as *u8 }
74 if i == 5 { return "government (tax) " as *u8 }
75 return "other " as *u8
76}
77
78// read one pack; add each layer delta into recip[]; write sum_base/sum_now to out[0]/out[1]
79func pack_recip(good: *u8, recip: *i64, out: *i64) -> i64 {
80 let path: *u8 = sys_mmap(256)
81 var o: i64 = 0
82 let pre: *u8 = "knowledge/anatomy/"
83 var i: i64 = 0
84 while pre[i] != (0 as u8) { path[o] = pre[i]; o = o + 1; i = i + 1 }
85 i = 0
86 while good[i] != (0 as u8) { path[o] = good[i]; o = o + 1; i = i + 1 }
87 let sfx: *u8 = ".pack"
88 i = 0
89 while sfx[i] != (0 as u8) { path[o] = sfx[i]; o = o + 1; i = i + 1 }
90 path[o] = 0 as u8
91 let buf: *u8 = sys_mmap(65536)
92 let mn: i64 = ev_read(path, buf, 65536)
93 var sb: i64 = 0; var sn: i64 = 0
94 var wt: i64 = 1
95 let line: *u8 = sys_mmap(1024)
96 let f1: *u8 = sys_mmap(64)
97 let f3: *u8 = sys_mmap(32)
98 let f4: *u8 = sys_mmap(32)
99 if mn <= 0 { out[0] = 0; out[1] = 0; return 1 }
100 var p: i64 = 0
101 while p < mn {
102 var e: i64 = p; var go: i64 = 1
103 while go == 1 { if e >= mn { go = 0 } else { if buf[e] == (10 as u8) { go = 0 } else { e = e + 1 } } }
104 let ll: i64 = e - p
105 if ll > 0 {
106 var t: i64 = 0
107 while t < ll { if t < 1023 { line[t] = buf[p + t] } t = t + 1 }
108 line[ll] = 0 as u8
109 let c0: i64 = line[0] as i64
110 if c0 == 64 { if startswith(line, "@weight " as *u8) == 1 { wt = pint((line as i64 + 8) as *u8) } }
111 if c0 != 64 { if c0 != 35 {
112 let nf: i64 = field_count(line, ll)
113 if nf >= 6 {
114 field_k(line, ll, 1, f1, 64)
115 field_k(line, ll, 3, f3, 32)
116 field_k(line, ll, 4, f4, 32)
117 let base: i64 = pint(f3)
118 let now: i64 = pint(f4)
119 let cls: i64 = class_idx(f1)
120 let rb: i64 = recipient_of_class(cls)
121 recip[rb] = recip[rb] + (now - base) * wt
122 sb = sb + base * wt
123 sn = sn + now * wt
124 }
125 } }
126 }
127 p = e + 1
128 }
129 out[0] = sb; out[1] = sn
130 return 0
131}
132
133func print_recip(r: *i64, total: i64) -> i64 {
134 let done: *i64 = sys_mmap(8 * 7) as *i64
135 var i: i64 = 0
136 while i < 7 { done[i] = 0; i = i + 1 }
137 var k: i64 = 0
138 while k < 7 {
139 var bi: i64 = 0 - 1; var bv: i64 = 0 - 1000000; var c: i64 = 0
140 while c < 7 { if done[c] == 0 { if r[c] > bv { bv = r[c]; bi = c } } c = c + 1 }
141 if bi >= 0 {
142 done[bi] = 1
143 if r[bi] != 0 { var pct: i64 = 0; if total > 0 { pct = r[bi] * 100 / total } gp(" " as *u8); gp(recip_name(bi)); gp(" +" as *u8); gn(r[bi]); gp("c " as *u8); gn(pct); gp("%\n" as *u8) }
144 }
145 k = k + 1
146 }
147 return 0
148}
149
150func main() -> i64 {
151 let recip: *i64 = sys_mmap(8 * 7) as *i64
152 var i: i64 = 0
153 while i < 7 { recip[i] = 0; i = i + 1 }
154 let out: *i64 = sys_mmap(8 * 4) as *i64
155
156 gp("=== nx_capture_trace: consumers paid more across the essentials basket (food + shelter) -- WHO actually received the increase? ===\n" as *u8)
157
158 let man: *u8 = sys_mmap(8192)
159 let mnl: i64 = ev_read("knowledge/anatomy/packs.list" as *u8, man, 8192)
160 if mnl <= 0 { gp(" packs.list missing pass=0 fail=1 verdict=RED\n" as *u8); sys_exit(1); return 1 }
161 var grand_base: i64 = 0; var grand_now: i64 = 0; var packs: i64 = 0
162 let gname: *u8 = sys_mmap(64)
163 var p: i64 = 0
164 while p < mnl {
165 var e: i64 = p; var go: i64 = 1
166 while go == 1 { if e >= mnl { go = 0 } else { if man[e] == (10 as u8) { go = 0 } else { e = e + 1 } } }
167 let ll: i64 = e - p
168 if ll > 0 { if man[p] != (35 as u8) {
169 var t: i64 = 0
170 while t < ll { if t < 63 { gname[t] = man[p + t] } t = t + 1 }
171 gname[ll] = 0 as u8
172 pack_recip(gname, recip, out)
173 grand_base = grand_base + out[0]
174 grand_now = grand_now + out[1]
175 packs = packs + 1
176 } }
177 p = e + 1
178 }
179 let gd: i64 = grand_now - grand_base
180
181 // capture model params
182 let cm: *u8 = sys_mmap(16384)
183 let cmn: i64 = ev_read("knowledge/anatomy/capture_model.txt" as *u8, cm, 16384)
184 var realw: i64 = 0; var cpi: i64 = 0; var grounded: i64 = 0
185 let cline: *u8 = sys_mmap(1024)
186 let k0: *u8 = sys_mmap(128)
187 let k1: *u8 = sys_mmap(64)
188 let k4: *u8 = sys_mmap(16)
189 var q: i64 = 0
190 while q < cmn {
191 var e2: i64 = q; var g2: i64 = 1
192 while g2 == 1 { if e2 >= cmn { g2 = 0 } else { if cm[e2] == (10 as u8) { g2 = 0 } else { e2 = e2 + 1 } } }
193 let l2: i64 = e2 - q
194 if l2 > 0 { if cm[q] != (35 as u8) {
195 var t: i64 = 0
196 while t < l2 { if t < 1023 { cline[t] = cm[q + t] } t = t + 1 }
197 cline[l2] = 0 as u8
198 if field_count(cline, l2) >= 5 {
199 field_k(cline, l2, 0, k0, 128)
200 field_k(cline, l2, 1, k1, 64)
201 field_k(cline, l2, 4, k4, 16)
202 if streq(k0, "real_wage_pct" as *u8) == 1 { realw = pint(k1) }
203 if streq(k0, "cpi_pct" as *u8) == 1 { cpi = pint(k1) }
204 grounded = grounded + pint(k4)
205 }
206 } }
207 q = e2 + 1
208 }
209
210 let worker: i64 = recip[1]
211 var real_gain: i64 = 0
212 if cpi + realw > 0 { real_gain = worker * realw / (cpi + realw) }
213 let tread: i64 = worker - real_gain
214 let capture: i64 = recip[3] + recip[4]
215 var cap_pct: i64 = 0
216 if gd > 0 { cap_pct = capture * 100 / gd }
217
218 var bpct: i64 = 0
219 if grand_base > 0 { bpct = gd * 100 / grand_base }
220 gp(" across " as *u8); gn(packs); gp(" goods the HOUSEHOLD-WEIGHTED essentials basket rose +" as *u8); gn(bpct); gp("%. WHO received the increase, ranked:\n" as *u8)
221 print_recip(recip, gd)
222
223 var wshare: i64 = 0
224 if gd > 0 { wshare = worker * 100 / gd }
225 var wr: i64 = 0
226 if worker > 0 { wr = real_gain * 100 / worker }
227 gp("\n THE REAL-WAGE REALITY (BLS): workers received " as *u8); gn(wshare); gp("% of the weighted increase nominally, but real average wages were ~flat.\n" as *u8)
228 gp(" -> only ~" as *u8); gn(wr); gp("% of that nominal rise was a REAL raise; the rest merely kept workers even with CPI. Workers did NOT capture it.\n" as *u8)
229 gp(" Farmer share of the food dollar kept FALLING; the egg farm spike was a supply shock (destroyed flocks),\n" as *u8)
230 gp(" captured by a few dominant producers posting record profit, not diffuse farmers.\n" as *u8)
231
232 gp("\n ==> THE CAPTURE: " as *u8); gn(cap_pct); gp("% of the household-weighted increase is MARGIN/MARKUP + RENTIER extraction --\n" as *u8)
233 gp(" the pull-ahead beyond real input costs and real wages. It lands in the CONCENTRATED MIDDLE\n" as *u8)
234 gp(" (processing / distribution / retail) and flows to capital. Grounded destinations:\n" as *u8)
235
236 // print DEST facts (second pass over cm)
237 q = 0
238 while q < cmn {
239 var e3: i64 = q; var g3: i64 = 1
240 while g3 == 1 { if e3 >= cmn { g3 = 0 } else { if cm[e3] == (10 as u8) { g3 = 0 } else { e3 = e3 + 1 } } }
241 let l3: i64 = e3 - q
242 if l3 > 0 { if cm[q] != (35 as u8) {
243 var t: i64 = 0
244 while t < l3 { if t < 1023 { cline[t] = cm[q + t] } t = t + 1 }
245 cline[l3] = 0 as u8
246 if startswith(cline, "DEST " as *u8) == 1 {
247 let f2: *u8 = sys_mmap(256)
248 let f3s: *u8 = sys_mmap(128)
249 field_k(cline, l3, 2, f2, 256)
250 field_k(cline, l3, 3, f3s, 128)
251 gp(" - " as *u8); gp(f2); gp(" [" as *u8); gp(f3s); gp("]\n" as *u8)
252 }
253 } }
254 q = e3 + 1
255 }
256
257 // ---- self-gate ----
258 var pass: i64 = 0
259 var fl: i64 = 0
260 var rsum: i64 = 0
261 i = 0
262 while i < 7 { rsum = rsum + recip[i]; i = i + 1 }
263 if rsum == gd { pass = pass + 1 } else { fl = fl + 1; gp(" FAIL recipient buckets do not conserve to the measured increase\n" as *u8) }
264 if real_gain <= worker { pass = pass + 1 } else { fl = fl + 1; gp(" FAIL real gain exceeds nominal (impossible)\n" as *u8) }
265 if packs >= 2 { pass = pass + 1 } else { fl = fl + 1; gp(" FAIL fewer than 2 goods\n" as *u8) }
266 if grounded >= 1 { pass = pass + 1 } else { fl = fl + 1; gp(" FAIL no grounded capture-model source\n" as *u8) }
267 var neg: i64 = 0
268 if recipient_of_class(class_idx("ZZ_bogus_QQ" as *u8)) == 6 { if recipient_of_class(class_idx("margin" as *u8)) == 3 { neg = 1 } }
269 if neg == 1 { pass = pass + 1 } else { fl = fl + 1; gp(" FAIL recipient neg-control\n" as *u8) }
270
271 gp("\nCAPTURE-TRACE pass=" as *u8); gn(pass); gp(" fail=" as *u8); gn(fl)
272 if fl == 0 { gp(" verdict=GREEN (recipient split conserves, real<=nominal, neg-control clean, grounded) -- the capture is the margin/rentier wedge in the concentrated middle\n" as *u8); sys_exit(0); return 0 }
273 gp(" verdict=RED\n" as *u8); sys_exit(1); return 1
274}