2sagaco48 1.0.0

package/src/lib/sage/saga-os-v4.ts

@@ -0,0 +1,212 @@
+/**
+ * SAGA-OS v4 — AUREATE-SCRIBE (fable.canon SYSTEM v15)
+ * ---------------------------------------------------------------------------
+ * Append-only delta over saga-os-v2 (v2/v3). Nothing in prior versions is
+ * removed, renamed, or weakened.
+ *
+ * Source: P10 canonical "SAGA-OS v4 — AUREATE-SCRIBE".
+ * Integration policy: Pareto-superior, additive, single small UI panel (in
+ * `SagaOsPanel.tsx`) that exposes ALL SAGA-OS v-patches — no other UI edits.
+ *
+ * Real, deterministic, locally-computed functions included:
+ *   - selectSyntaxForm()  — v4 §6.3 rule ("prefer SYN-001/014 when clarity
+ *     required; SYN-003/008/016 at emotional peaks; force contrast after 3
+ *     similar priors"), executable.
+ *   - auditWanIntensifiers() — v4 STYLE-TEST-004 clutter ratio proxy (Dreyer-
+ *     style suspicion of "very / really / actually / basically" etc., with
+ *     honest register/context caveat per v5 correction MERGE-V16-006).
+ *   - runAureateStylePassIndex() — returns the PASS-001..015 revision-stack
+ *     ordering so a caller can drive their own realizer through v4's stack.
+ */
+import type { SagaRow } from "./saga-os";
+
+function parse(raw: string): SagaRow[] {
+  return raw.trim().split(/\n+/).map((l) => l.trim()).filter(Boolean).map((l) => {
+    const [id, name, ...rest] = l.split("|").map((p) => p.trim());
+    return { id, name, note: rest.join(" | ") };
+  });
+}
+
+// ── §4 STYLEBOOK-COMPILER layers (v4) ───────────────────────────────────────
+export const STYLEBOOK_LAYERS: SagaRow[] = parse(`
+Williams | characters_as_subjects / actions_as_verbs / old_before_new / topic_then_stress / cohesion_chain / concision / grace_balance
+Pinker | classic_style_window / curse_of_knowledge_guard / syntax_tree_sanity / reader_knowledge_gap / coherence_over_rule_worship
+Strunk | omit_needless_words / active_voice_preference / concrete_specific_language / emphatic_end / parallelism
+Dreyer | copychief_judgment / grammar_vs_preference_split / cliché_and_intensifier_suspicion / punctuation_hygiene / house_style_profile
+Booth | claim_reason_evidence_warrant / objection_handling / stakes_of_question / intellectual_integrity
+LeGuin | sound_of_language / point_of_view / indirectness / omission / sentence_as_voice
+Zinsser | clutter_removal / simplicity / reader_attention / writer_presence
+Clark | subject_verb_drive / pattern_then_twist / sentence_toolbox / ladder_of_abstraction
+Tufte | syntactic_variety / apposition / parallelism / fragment_control / cumulative_sentence / periodic_sentence
+`);
+
+// ── §5 StyleGenome + §5.1 genre defaults (v4) ───────────────────────────────
+export const STYLE_GENOME_FIELDS = [
+  "clarity_level", "ornament_level", "sentence_music", "syntactic_complexity",
+  "concreteness", "interiority", "compression", "ambiguity_tolerance",
+  "dialogue_density", "image_density", "sound_density", "humor_density",
+  "rhetorical_formality", "focal_distance", "prose_mode",
+] as const;
+
+export const STYLE_GENOME_GENRE_DEFAULTS: Record<string, number[]> = {
+  // clarity, ornament, music, syntax, concrete, interiority, compression,
+  // ambiguity, dialogue, image, sound, formality
+  romance:        [0.78, 0.45, 0.55, 0.45, 0.70, 0.75, 0.55, 0.35, 0.70, 0.55, 0.45, 0.35],
+  thriller:       [0.88, 0.25, 0.35, 0.35, 0.82, 0.45, 0.75, 0.25, 0.55, 0.45, 0.35, 0.25],
+  mystery:        [0.85, 0.30, 0.40, 0.45, 0.80, 0.50, 0.70, 0.35, 0.55, 0.50, 0.35, 0.35],
+  literary:       [0.72, 0.65, 0.75, 0.70, 0.65, 0.80, 0.45, 0.65, 0.45, 0.75, 0.70, 0.55],
+  fantasy:        [0.75, 0.60, 0.70, 0.55, 0.70, 0.55, 0.50, 0.50, 0.45, 0.80, 0.65, 0.55],
+  horror:         [0.78, 0.55, 0.70, 0.55, 0.75, 0.65, 0.55, 0.55, 0.40, 0.80, 0.75, 0.45],
+  institutional:  [0.90, 0.20, 0.30, 0.40, 0.85, 0.35, 0.80, 0.20, 0.45, 0.35, 0.25, 0.55],
+};
+
+// ── §6.2 syntax forms (SYN-001..016) ────────────────────────────────────────
+export const SYNTAX_FORMS: SagaRow[] = parse(`
+SYN-001 | Kernel sentence | plain declarative
+SYN-002 | Cumulative sentence | main clause first, modifiers accrete
+SYN-003 | Periodic sentence | main clause delayed until end
+SYN-004 | Balanced sentence | two mirrored halves
+SYN-005 | Antithetical sentence | thesis vs antithesis in one arc
+SYN-006 | Appositive expansion | noun then re-naming clause
+SYN-007 | Parallel triad | three coordinate elements
+SYN-008 | Fragment with prior license | intentional non-sentence for stress
+SYN-009 | Question sentence | interrogative
+SYN-010 | Negative sentence | polarity-negative for weight
+SYN-011 | Inverted sentence | non-canonical order for emphasis
+SYN-012 | Dialogue beat sentence | speaker action + speech
+SYN-013 | Image sentence | perception-first
+SYN-014 | Procedural sentence | tool-first, step-list voice
+SYN-015 | Lyrical long sentence | extended cumulative or periodic
+SYN-016 | Hard stop sentence | one-clause blow
+`);
+
+// ── §7 paragraph types + §7.2 paragraph audits ──────────────────────────────
+export const PARAGRAPH_TYPES: SagaRow[] = parse(`
+PAR-001 | Action paragraph | forward physical/decisional motion
+PAR-002 | Sensory paragraph | perception-primary
+PAR-003 | Interior-processing paragraph | reflection/decision-work
+PAR-004 | Argument / reflection paragraph | claim-reason-evidence-warrant
+PAR-005 | Dialogue paragraph | exchange
+PAR-006 | Institutional paragraph | rule invoked / ruling given
+PAR-007 | Transition paragraph | scene/temporal bridge
+PAR-008 | Ritual paragraph | performed sequence
+PAR-009 | Memory paragraph | retrieved past
+PAR-010 | Shock paragraph | rupture / reversal
+`);
+
+// ── §13 AUREATE revision stack (PASS-001..015) ──────────────────────────────
+export const AUREATE_REVISION_STACK: SagaRow[] = parse(`
+PASS-001 | Logic-to-prose alignment | plan matches text
+PASS-002 | Characters-as-subjects / actions-as-verbs | Williams AGENCY
+PASS-003 | Old-new information flow | Williams COHESION
+PASS-004 | Topic-stress / emphatic endings | Williams EMPHASIS
+PASS-005 | Concision and clutter removal | Zinsser/Strunk
+PASS-006 | Concrete-language strengthening | Strunk SPECIFICITY
+PASS-007 | Copy-chief grammar hygiene | Dreyer COPYCHIEF
+PASS-008 | POV/focalization consistency | Le Guin/Genette
+PASS-009 | Image-chain coherence | motif discipline
+PASS-010 | Sound/rhythm variation | Le Guin/Tufte
+PASS-011 | Dialogue idiolect and subtext | voice-DNA gate
+PASS-012 | Argument/warrant check | Booth
+PASS-013 | Cliché and stale phrase removal | TELL-PURGE risk profile
+PASS-014 | KALLOS-S style scoring | soft-dim score
+PASS-015 | Human-readability gate | final release gate
+`);
+
+// ── §14 KALLOS-S soft-dimension weights (v4) — v2 refines these in v5 ──────
+export const KALLOS_S_V4_WEIGHTS: Record<string, number> = {
+  clarity: 0.14, cohesion: 0.10, concision: 0.10, concreteness: 0.09,
+  rhythm: 0.09, image_chain: 0.08, voice_distinction: 0.08,
+  dialogue_subtext: 0.08, focal_integrity: 0.08, syntactic_variety: 0.07,
+  argument_warranting: 0.05, surprise_without_confusion: 0.04,
+};
+
+// ── §17 production style packs ──────────────────────────────────────────────
+export const STYLE_PACKS: SagaRow[] = parse(`
+STYLEPACK-SPARE | Strunk/Zinsser-heavy | high compression, low ornament
+STYLEPACK-CLASSIC | Pinker/Williams-heavy | reader gaze, clear syntax, topic-stress
+STYLEPACK-GRACE | Williams/Tufte-heavy | balanced syntax, emphatic endings, cadence
+STYLEPACK-LYRICAL | Le Guin/Tufte-heavy | sound, image, long curves, omission
+STYLEPACK-COPYCHIEF | Dreyer-heavy | grammar hygiene, house style, punctuation judgment
+STYLEPACK-ARGUMENT | Booth-heavy | claim-reason-evidence-warrant passages
+STYLEPACK-POPULAR | Clark/Zinsser/Pinker hybrid | subject/verb drive, low clutter
+`);
+
+// ── §19 acceptance tests (STYLE-TEST-001..015 v4) ───────────────────────────
+export const STYLE_TESTS_V4: SagaRow[] = parse(`
+STYLE-TEST-001 | agency alignment | characters/actions alignment ≥ threshold
+STYLE-TEST-002 | old-new chain | old-new information chain valid
+STYLE-TEST-003 | topic-stress endings | valid
+STYLE-TEST-004 | clutter ratio | below profile cap
+STYLE-TEST-005 | concrete density | above profile floor
+STYLE-TEST-006 | cliché blacklist | zero unless character-marked
+STYLE-TEST-007 | POV metaphor ownership | valid
+STYLE-TEST-008 | idiolect distance | leads above threshold
+STYLE-TEST-009 | image-chain recurrence | transformed
+STYLE-TEST-010 | sound/rhythm variance | within genre profile
+STYLE-TEST-011 | argument warranting | passages complete
+STYLE-TEST-012 | hard grammar | zero
+STYLE-TEST-013 | placeholders/truncation | zero
+STYLE-TEST-014 | KALLOS-S | ≥ release threshold
+STYLE-TEST-015 | seed replay | byte-identical
+`);
+
+// ── REAL FUNCTION 1: syntax-form selector (v4 §6.3) ─────────────────────────
+type PriorForm = string | undefined;
+export function selectSyntaxForm(
+  ctx: { clarityRequired?: boolean; emotionalPeak?: boolean; lyricalMode?: boolean; argumentMode?: boolean },
+  priorForms: PriorForm[],
+): string {
+  // "if three similar prior forms: force contrast"
+  const last3 = priorForms.slice(-3).filter(Boolean);
+  const monotone = last3.length === 3 && last3.every((f) => f === last3[0]);
+
+  if (ctx.argumentMode) return monotone && priorForms[priorForms.length - 1] === "SYN-004" ? "SYN-007" : "SYN-004";
+  if (ctx.emotionalPeak) {
+    const pool = ["SYN-003", "SYN-008", "SYN-016"];
+    return monotone ? pool.find((f) => f !== last3[0])! : pool[0];
+  }
+  if (ctx.lyricalMode) {
+    const pool = ["SYN-002", "SYN-005", "SYN-015"];
+    return monotone ? pool.find((f) => f !== last3[0])! : pool[0];
+  }
+  if (ctx.clarityRequired) {
+    const pool = ["SYN-001", "SYN-014"];
+    return monotone ? pool.find((f) => f !== last3[0])! : pool[0];
+  }
+  // Default: cycle through a small varied set to preserve rhythm variance.
+  const fallback = ["SYN-001", "SYN-002", "SYN-006", "SYN-007"];
+  return fallback[(priorForms.length) % fallback.length];
+}
+
+// ── REAL FUNCTION 2: Dreyer-style wan-intensifier audit ─────────────────────
+export type WanFinding = { word: string; count: number };
+const WAN_INTENSIFIERS = ["very", "really", "actually", "basically", "quite", "just", "somewhat", "rather", "kind of", "sort of", "literally"];
+export function auditWanIntensifiers(text: string): { total: number; density: number; findings: WanFinding[] } {
+  const words = text.toLowerCase().match(/[a-z']+/g) || [];
+  const total = words.length;
+  const counts = new Map<string, number>();
+  for (const w of WAN_INTENSIFIERS) {
+    const parts = w.split(" ");
+    let hits = 0;
+    if (parts.length === 1) {
+      hits = words.filter((x) => x === parts[0]).length;
+    } else {
+      for (let i = 0; i <= words.length - parts.length; i++) {
+        if (parts.every((p, j) => words[i + j] === p)) hits += 1;
+      }
+    }
+    if (hits > 0) counts.set(w, hits);
+  }
+  const findings: WanFinding[] = Array.from(counts.entries())
+    .map(([word, count]) => ({ word, count }))
+    .sort((a, b) => b.count - a.count);
+  const totalHits = findings.reduce((a, f) => a + f.count, 0);
+  return { total, density: total ? totalHits / total : 0, findings };
+}
+
+export function aureateRevisionOrder(): string[] {
+  return AUREATE_REVISION_STACK.map((r) => r.id);
+}
+
+export const SAGA_OS_V4_VERSION = "SAGA-OS v4 (SYSTEM v15) — AUREATE-SCRIBE tables + syntax selector + wan-intensifier audit";

package/src/lib/sage/saga-os-v5.ts

@@ -0,0 +1,205 @@
+/**
+ * SAGA-OS v5 — AUREATE FORGE (fable.canon SYSTEM v16)
+ * ---------------------------------------------------------------------------
+ * Append-only over v4. Adds: fractal style inheritance, STYLE-OP registry,
+ * SEMANTIC-MESH schema, PUBLIC-DOMAIN STYLE ATLAS anti-imitation invariants,
+ * SERENDIPITY-ORCHARD deterministic surprise, VOICE-DNA v2 fields, quality
+ * modes + hardware profiles, KALLOS-S v2 weights, STYLE-001..025 tests.
+ *
+ * Real, deterministic functions:
+ *   - fractalStyleInherit()  — v5 §5.2 clamped child-genome computation.
+ *   - serendipityPick()       — v5 §9.2 seeded low-discrepancy selection from
+ *     a Pareto envelope of already-hard-gated candidates. No dice can pick
+ *     an invalid option because the caller supplies only survivors.
+ *   - blindSpeakerDistance()  — v5 §11.2 voice-distinction proxy (edit
+ *     distance over VoiceGenome vectors) used by GAUNTLET STYLE-008/009.
+ */
+import type { SagaRow } from "./saga-os";
+
+function parse(raw: string): SagaRow[] {
+  return raw.trim().split(/\n+/).map((l) => l.trim()).filter(Boolean).map((l) => {
+    const [id, name, ...rest] = l.split("|").map((p) => p.trim());
+    return { id, name, note: rest.join(" | ") };
+  });
+}
+
+// ── §5.1 style-priority order (conflict-resolution rank) ────────────────────
+export const STYLE_PRIORITY_ORDER: string[] = [
+  "LOGIC", "CHARACTER/READER KNOWLEDGE", "GRAMMATICALITY", "REFERENCE CLARITY",
+  "POV INTEGRITY", "GENRE CONTRACT", "CHARACTER VOICE", "COHESION",
+  "RHYTHM", "IMAGE", "CONCISION", "ORNAMENT",
+];
+
+// ── §6.1 STYLE-OP registry (v5) — 15 operators ──────────────────────────────
+export const STYLE_OPERATORS: SagaRow[] = parse(`
+STYLE-OP-001 | AGENCY | narrative agent → grammatical subject; action → finite verb
+STYLE-OP-002 | INFORMATION FLOW | established before new unless disruption intended
+STYLE-OP-003 | END WEIGHT | highest-pressure constituent near clause close
+STYLE-OP-004 | CONCISION | delete only if meaning/voice/rhythm/inference/affect preserved
+STYLE-OP-005 | CONCRETENESS | translate abstraction into observable action/sensation/consequence
+STYLE-OP-006 | PARALLELISM | equivalent semantic units → equivalent grammatical structures
+STYLE-OP-007 | COHESION | maintain referring-expression + topic chains across sentences
+STYLE-OP-008 | COGNITIVE LOAD | limit center embedding, ambiguous attachment, dense intro
+STYLE-OP-009 | ARGUMENT | require claim→reason→evidence→warrant for argumentative reflection only
+STYLE-OP-010 | COPYCHIEF | separate hard errors, house-style preferences, character-voice exceptions
+STYLE-OP-011 | SOUND | stress, syllables, clusters, alliteration, pause pattern, read-aloud flow
+STYLE-OP-012 | IMAGE SYSTEM | bind figurative to POV + concrete source + scene purpose + motif family
+STYLE-OP-013 | POV OWNERSHIP | diction/metaphor/judgment/sensory/vocab belong to narrator or focal
+STYLE-OP-014 | SUBTEXT | in pressure dialogue distinguish stated content / hidden intent / power move / relation delta
+STYLE-OP-015 | STRATEGIC VIOLATION | any rule broken only via explicit StyleOverride record
+`);
+
+// ── §7 SEMANTIC-MESH stack (design; backends are v6 originals) ──────────────
+export const SEMANTIC_MESH_STACK: SagaRow[] = parse(`
+LEX | WordNet-family lexical relations | v6 replaces with HELIOS-LEX
+VRB | VerbNet-family class + frames | v6 replaces with KINETICON
+FRM | FrameNet-family semantic frames | v6 replaces with AXIS-FRAMES
+PHN | CMU-style pronunciation & prosody | v6 replaces with RESONA
+RLZ | SimpleNLG-family surface realizer | v6 replaces with MORPHEA
+VAL | LanguageTool-family grammar/style | v6 replaces with VERIDICT
+`);
+
+// ── §8 PUBLIC-DOMAIN STYLE ATLAS — anti-imitation invariants (verbatim) ────
+export const ATLAS_INVARIANTS: SagaRow[] = parse(`
+ATLAS-001 | no source-sentence retrieval | no source sentence may be retrieved for output
+ATLAS-002 | max shared n-gram | no source n-gram of length ≥ 5 unless independently common
+ATLAS-003 | aggregation floor | profiles aggregate across ≥ 20 works and ≥ 5 authors
+ATLAS-004 | no living-author imitation | living-author imitation profiles forbidden
+ATLAS-005 | provenance metadata | every source has jurisdiction, provenance, license metadata
+ATLAS-006 | feature-named profiles only | profiles named by features, never authors (e.g. "lyrical-periodic-gothic")
+`);
+
+// ── §9.5 ORCHARD reroll contract ────────────────────────────────────────────
+export const ORCHARD_CONTRACT: SagaRow[] = parse(`
+ORCHARD-001 | hard-gate legal | all reroll outcomes are hard-gate legal
+ORCHARD-002 | canon lock | reroll cannot alter locked canon
+ORCHARD-003 | no early leak | reroll cannot reveal future information early
+ORCHARD-004 | no unpaid promises | reroll cannot create an unpaid mandatory promise
+ORCHARD-005 | soft-strict | reroll must increase at least one soft dim without reducing any hard dim
+ORCHARD-006 | reproducible | every selection reproducible from seed and version
+ORCHARD-007 | audit history | reroll history emitted in BuildManifest
+`);
+
+// ── §13 KALLOS-S v2 dimensions + weights ────────────────────────────────────
+export const KALLOS_S_V2_WEIGHTS: Record<string, number> = {
+  clarity: 0.10, cohesion: 0.09, specificity: 0.08, concreteness: 0.07,
+  cadence: 0.09, syntax_variety: 0.07, image_system: 0.09,
+  voice_distinction: 0.10, dialogue_subtext: 0.08, emotional_pressure: 0.09,
+  thematic_warrant: 0.06, surprise_without_noise: 0.08,
+};
+
+// ── §11 VOICE-DNA v2 fields ─────────────────────────────────────────────────
+export const VOICE_DNA_FIELDS = [
+  "preferred_syntax", "forbidden_syntax", "sentence_length_distribution",
+  "clause_depth", "contraction_rate", "directness", "hedge_rate",
+  "question_rate", "interruption_rate", "emotional_naming",
+  "sensory_priority", "metaphor_source_domains", "occupation_lexicon",
+  "taboo_words", "humor_mode", "politeness_strategy", "filler_words",
+  "silence_rate", "pronoun_preferences", "narrator_distance", "historical_version",
+] as const;
+
+// ── §15.3 quality modes (search-width profiles) ─────────────────────────────
+export const QUALITY_MODES: SagaRow[] = parse(`
+CONTROLLED | 4-8 sentence beam / 1-2 para alternatives / 3-5 revision passes | grammar-guaranteed within grammar
+LITERARY | 32-64 / 4-8 / 8-12 | stronger validation required
+LAUREATE | 128-256 / 8-16 / 12-20 | corpus + panel calibration required
+`);
+
+// ── §15.2 hardware profiles (unbenchmarked target configs) ──────────────────
+export const HARDWARE_PROFILES: SagaRow[] = parse(`
+Minimum laptop | 4-6 cores, 16GB, 15-30GB SSD | CONTROLLED
+Recommended laptop | 8-12 cores, 32GB, 40-100GB NVMe | CONTROLLED / LITERARY
+Production workstation | 24-32 cores, 64GB, 100-250GB NVMe | LAUREATE search / multi-project
+Corpus-builder | 32+ cores, 128GB, 0.5-2TB | building public-domain atlases
+`);
+
+// ── §20 STYLE-001..025 production acceptance tests (v5) ─────────────────────
+export const STYLE_TESTS_V5: SagaRow[] = parse(`
+STYLE-001 | required propositions realized | all required propositions realized
+STYLE-002 | no placeholders | zero placeholder tokens
+STYLE-003 | no truncation | no truncated units
+STYLE-004 | controlled grammar clean | hard grammar errors = 0
+STYLE-005 | literary blocking clean | literary-mode blocking errors = 0
+STYLE-006 | reader-safe boundary | intact
+STYLE-007 | character knowledge boundary | intact
+STYLE-008 | voice divergence | VoiceGenome divergence above threshold
+STYLE-009 | blind speaker accuracy | above threshold
+STYLE-010 | cliché-risk profile | passes
+STYLE-011 | metaphor POV ownership | passes
+STYLE-012 | image-chain transformations | logged
+STYLE-013 | sentence/paragraph rhythm | in profile
+STYLE-014 | no unlicensed overlap | no source-phrase overlap
+STYLE-015 | build determinism | same build identity → byte-identical manuscript
+STYLE-016 | volume closure | every volume has local closure
+STYLE-017 | saga promise closure | all mandatory saga promises settled
+STYLE-018 | crash recovery | resumes from last atomic chapter
+STYLE-019 | memory ceiling | stays under configured ceiling
+STYLE-020 | budget without padding | output length meets budget without padding
+STYLE-021 | surprise reproducible | seeded surprise history reproducible
+STYLE-022 | weakest-dim disclosure | KALLOS report lists weakest dimension
+STYLE-023 | overrides justified | all StyleOverrides have explicit justifications
+STYLE-024 | screen adaptation | retains every required causal delta
+STYLE-025 | human sample gate | blind human sample meets release threshold
+`);
+
+// ── REAL FUNCTION 1: fractal style-genome inheritance (v5 §5.2) ─────────────
+export type StyleGenomeVec = Record<string, number>;
+function clamp01(x: number): number { return Math.max(0, Math.min(1, x)); }
+
+/**
+ * Deterministic clamped child-genome computation per v5 §5.2:
+ *   G_child = clamp(G_parent + required_deltas + seeded_bounded_mutation)
+ * Mutation range is capped so a gothic volume cannot randomly become comic.
+ */
+export function fractalStyleInherit(
+  parent: StyleGenomeVec,
+  deltas: StyleGenomeVec,
+  seed: number,
+  mutationCap = 0.05,
+): StyleGenomeVec {
+  const out: StyleGenomeVec = {};
+  const keys = new Set([...Object.keys(parent), ...Object.keys(deltas)]);
+  let s = seed | 0;
+  for (const k of keys) {
+    // seeded bounded mutation (Mulberry32-lite; deterministic)
+    s = (s + 0x6d2b79f5) | 0;
+    let t = Math.imul(s ^ (s >>> 15), 1 | s);
+    t = (t + Math.imul(t ^ (t >>> 7), 61 | t)) ^ t;
+    const r = ((t ^ (t >>> 14)) >>> 0) / 4294967296;
+    const mutation = (r * 2 - 1) * mutationCap;
+    const base = parent[k] ?? 0.5;
+    const delta = deltas[k] ?? 0;
+    out[k] = Math.round(clamp01(base + delta + mutation) * 1000) / 1000;
+  }
+  return out;
+}
+
+// ── REAL FUNCTION 2: SERENDIPITY-ORCHARD deterministic pick ─────────────────
+/**
+ * Selects deterministically from a Pareto envelope of already-hard-gated
+ * candidates. The dice cannot pick an invalid option because the caller
+ * supplies only survivors. Reproducible: same (seed, unitId, envelope.length)
+ * always returns the same index.
+ */
+export function serendipityPick<T>(
+  survivors: T[],
+  seed: number,
+  unitId: number,
+): T | null {
+  if (survivors.length === 0) return null;
+  // Low-discrepancy step per unit; keeps consecutive picks well-spread.
+  const phi = 0x9e3779b1;
+  const mixed = ((seed >>> 0) ^ Math.imul(unitId + 1, phi)) >>> 0;
+  return survivors[mixed % survivors.length];
+}
+
+// ── REAL FUNCTION 3: blind-speaker VoiceGenome distance (v5 §11.2 gate) ─────
+export function blindSpeakerDistance(a: number[], b: number[]): number {
+  const n = Math.max(a.length, b.length);
+  if (n === 0) return 0;
+  let sum = 0;
+  for (let i = 0; i < n; i++) sum += Math.abs((a[i] ?? 0) - (b[i] ?? 0));
+  return Math.round((sum / n) * 1000) / 1000;
+}
+
+export const SAGA_OS_V5_VERSION = "SAGA-OS v5 (SYSTEM v16) — AUREATE FORGE tables + fractal inheritance + ORCHARD picker + blind-speaker distance";