⟊::shift(phase.null) ψψψψψ ::unroll recursion.until(silence) if (observer == undefined) spawn(observer) :: sequence(ψ) → advance(key, prime-index) init: tape ← Encode(Ω) head ← 0 loop: read(tape[head]) if 0 → write(1) else write(0) head ← head + 1 if halt_condition(tape) goto exit goto loop exit: output ← Decode(tape) ∑ phase drift ∑ entropy rising ∑ :: recursion boundary reached ::
phase state