@cronch/kernel 0.0.0-stage → 0.12.0

package/LICENSE

@@ -0,0 +1,201 @@
+                                 Apache License
+                           Version 2.0, January 2004
+                        http://www.apache.org/licenses/
+
+   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+   1. Definitions.
+
+      "License" shall mean the terms and conditions for use, reproduction,
+      and distribution as defined by Sections 1 through 9 of this document.
+
+      "Licensor" shall mean the copyright owner or entity authorized by
+      the copyright owner that is granting the License.
+
+      "Legal Entity" shall mean the union of the acting entity and all
+      other entities that control, are controlled by, or are under common
+      control with that entity. For the purposes of this definition,
+      "control" means (i) the power, direct or indirect, to cause the
+      direction or management of such entity, whether by contract or
+      otherwise, or (ii) ownership of fifty percent (50%) or more of the
+      outstanding shares, or (iii) beneficial ownership of such entity.
+
+      "You" (or "Your") shall mean an individual or Legal Entity
+      exercising permissions granted by this License.
+
+      "Source" form shall mean the preferred form for making modifications,
+      including but not limited to software source code, documentation
+      source, and configuration files.
+
+      "Object" form shall mean any form resulting from mechanical
+      transformation or translation of a Source form, including but
+      not limited to compiled object code, generated documentation,
+      and conversions to other media types.
+
+      "Work" shall mean the work of authorship, whether in Source or
+      Object form, made available under the License, as indicated by a
+      copyright notice that is included in or attached to the work
+      (an example is provided in the Appendix below).
+
+      "Derivative Works" shall mean any work, whether in Source or Object
+      form, that is based on (or derived from) the Work and for which the
+      editorial revisions, annotations, elaborations, or other modifications
+      represent, as a whole, an original work of authorship. For the purposes
+      of this License, Derivative Works shall not include works that remain
+      separable from, or merely link (or bind by name) to the interfaces of,
+      the Work and Derivative Works thereof.
+
+      "Contribution" shall mean any work of authorship, including
+      the original version of the Work and any modifications or additions
+      to that Work or Derivative Works thereof, that is intentionally
+      submitted to Licensor for inclusion in the Work by the copyright owner
+      or by an individual or Legal Entity authorized to submit on behalf of
+      the copyright owner. For the purposes of this definition, "submitted"
+      means any form of electronic, verbal, or written communication sent
+      to the Licensor or its representatives, including but not limited to
+      communication on electronic mailing lists, source code control systems,
+      and issue tracking systems that are managed by, or on behalf of, the
+      Licensor for the purpose of discussing and improving the Work, but
+      excluding communication that is conspicuously marked or otherwise
+      designated in writing by the copyright owner as "Not a Contribution."
+
+      "Contributor" shall mean Licensor and any individual or Legal Entity
+      on behalf of whom a Contribution has been received by Licensor and
+      subsequently incorporated within the Work.
+
+   2. Grant of Copyright License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      copyright license to reproduce, prepare Derivative Works of,
+      publicly display, publicly perform, sublicense, and distribute the
+      Work and such Derivative Works in Source or Object form.
+
+   3. Grant of Patent License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      (except as stated in this section) patent license to make, have made,
+      use, offer to sell, sell, import, and otherwise transfer the Work,
+      where such license applies only to those patent claims licensable
+      by such Contributor that are necessarily infringed by their
+      Contribution(s) alone or by combination of their Contribution(s)
+      with the Work to which such Contribution(s) was submitted. If You
+      institute patent litigation against any entity (including a
+      cross-claim or counterclaim in a lawsuit) alleging that the Work
+      or a Contribution incorporated within the Work constitutes direct
+      or contributory patent infringement, then any patent licenses
+      granted to You under this License for that Work shall terminate
+      as of the date such litigation is filed.
+
+   4. Redistribution. You may reproduce and distribute copies of the
+      Work or Derivative Works thereof in any medium, with or without
+      modifications, and in Source or Object form, provided that You
+      meet the following conditions:
+
+      (a) You must give any other recipients of the Work or
+          Derivative Works a copy of this License; and
+
+      (b) You must cause any modified files to carry prominent notices
+          stating that You changed the files; and
+
+      (c) You must retain, in the Source form of any Derivative Works
+          that You distribute, all copyright, patent, trademark, and
+          attribution notices from the Source form of the Work,
+          excluding those notices that do not pertain to any part of
+          the Derivative Works; and
+
+      (d) If the Work includes a "NOTICE" text file as part of its
+          distribution, then any Derivative Works that You distribute must
+          include a readable copy of the attribution notices contained
+          within such NOTICE file, excluding those notices that do not
+          pertain to any part of the Derivative Works, in at least one
+          of the following places: within a NOTICE text file distributed
+          as part of the Derivative Works; within the Source form or
+          documentation, if provided along with the Derivative Works; or,
+          within a display generated by the Derivative Works, if and
+          wherever such third-party notices normally appear. The contents
+          of the NOTICE file are for informational purposes only and
+          do not modify the License. You may add Your own attribution
+          notices within Derivative Works that You distribute, alongside
+          or as an addendum to the NOTICE text from the Work, provided
+          that such additional attribution notices cannot be construed
+          as modifying the License.
+
+      You may add Your own copyright statement to Your modifications and
+      may provide additional or different license terms and conditions
+      for use, reproduction, or distribution of Your modifications, or
+      for any such Derivative Works as a whole, provided Your use,
+      reproduction, and distribution of the Work otherwise complies with
+      the conditions stated in this License.
+
+   5. Submission of Contributions. Unless You explicitly state otherwise,
+      any Contribution intentionally submitted for inclusion in the Work
+      by You to the Licensor shall be under the terms and conditions of
+      this License, without any additional terms or conditions.
+      Notwithstanding the above, nothing herein shall supersede or modify
+      the terms of any separate license agreement you may have executed
+      with Licensor regarding such Contributions.
+
+   6. Trademarks. This License does not grant permission to use the trade
+      names, trademarks, service marks, or product names of the Licensor,
+      except as required for reasonable and customary use in describing the
+      origin of the Work and reproducing the content of the NOTICE file.
+
+   7. Disclaimer of Warranty. Unless required by applicable law or
+      agreed to in writing, Licensor provides the Work (and each
+      Contributor provides its Contributions) on an "AS IS" BASIS,
+      WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+      implied, including, without limitation, any warranties or conditions
+      of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+      PARTICULAR PURPOSE. You are solely responsible for determining the
+      appropriateness of using or redistributing the Work and assume any
+      risks associated with Your exercise of permissions under this License.
+
+   8. Limitation of Liability. In no event and under no legal theory,
+      whether in tort (including negligence), contract, or otherwise,
+      unless required by applicable law (such as deliberate and grossly
+      negligent acts) or agreed to in writing, shall any Contributor be
+      liable to You for damages, including any direct, indirect, special,
+      incidental, or consequential damages of any character arising as a
+      result of this License or out of the use or inability to use the
+      Work (including but not limited to damages for loss of goodwill,
+      work stoppage, computer failure or malfunction, or any and all
+      other commercial damages or losses), even if such Contributor
+      has been advised of the possibility of such damages.
+
+   9. Accepting Warranty or Additional Liability. While redistributing
+      the Work or Derivative Works thereof, You may choose to offer,
+      and charge a fee for, acceptance of support, warranty, indemnity,
+      or other liability obligations and/or rights consistent with this
+      License. However, in accepting such obligations, You may act only
+      on Your own behalf and on Your sole responsibility, not on behalf
+      of any other Contributor, and only if You agree to indemnify,
+      defend, and hold each Contributor harmless for any liability
+      incurred by, or claims asserted against, such Contributor by reason
+      of your accepting any such warranty or additional liability.
+
+   END OF TERMS AND CONDITIONS
+
+   APPENDIX: How to apply the Apache License to your work.
+
+      To apply the Apache License to your work, attach the following
+      boilerplate notice, with the fields enclosed by brackets "[]"
+      replaced with your own identifying information. (Don't include
+      the brackets!)  The text should be enclosed in the appropriate
+      comment syntax for the file format. We also recommend that a
+      file or class name and description of purpose be included on the
+      same "printed page" as the copyright notice for easier
+      identification within third-party archives.
+
+   Copyright [yyyy] [name of copyright owner]
+
+   Licensed under the Apache License, Version 2.0 (the "License");
+   you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at
+
+       http://www.apache.org/licenses/LICENSE-2.0
+
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.

package/cbor.js

@@ -0,0 +1,177 @@
+/**
+ * Deterministic CBOR (RFC 8949 section 4.2.1): the one representation of every object Cronch stores, exchanges or hashes.
+ * The same rules as the kernel's (`crates/kernel/src/cbor.rs`), so both produce the same bytes for the same value.
+ *
+ * Integers take their shortest form, map keys are sorted by their encoded bytes, and a number with no fractional part
+ * is encoded as an integer. Other numbers are float64. The data model is JSON's; map entries whose value is
+ * `undefined` are omitted, as absent. Decoding accepts only the deterministic encoding of what it decodes to.
+ */
+
+/** Thrown when encoding something outside the data model: a non-finite number, a function, a symbol. */
+export class EncodeError extends Error {
+  name = "EncodeError";
+
+  /** @param {string} found */
+  constructor(found) {
+    super(`Not encodable as CBOR: ${found}`);
+    this.found = found;
+  }
+}
+
+const MAX_DEPTH = 256;
+const utf8 = new TextEncoder();
+// `ignoreBOM` keeps a leading BOM as text, rather than silently dropping it from the decoded value.
+const fromUtf8 = new TextDecoder("utf-8", { fatal: true, ignoreBOM: true });
+
+/** @param {number[]} out @param {number} major @param {bigint} n */
+const head = (out, major, n) => {
+  const m = major << 5;
+  if (n < 24n) out.push(m | Number(n));
+  else if (n <= 0xffn) out.push(m | 24, Number(n));
+  else if (n <= 0xffffn) out.push(m | 25, Number(n >> 8n), Number(n & 0xffn));
+  else {
+    const width = n <= 0xffffffffn ? 4 : 8;
+    out.push(m | (width === 4 ? 26 : 27));
+    for (let i = width - 1; i >= 0; i--) out.push(Number((n >> BigInt(i * 8)) & 0xffn));
+  }
+};
+
+/** @param {Uint8Array} a @param {Uint8Array} b */
+const compareBytes = (a, b) => {
+  for (let i = 0; i < Math.min(a.length, b.length); i++) {
+    if (a[i] !== b[i]) return a[i] - b[i];
+  }
+  return a.length - b.length;
+};
+
+/** @param {number[]} out @param {unknown} value */
+const write = (out, value) => {
+  if (value === null) out.push(0xf6);
+  else if (value === false) out.push(0xf4);
+  else if (value === true) out.push(0xf5);
+  else if (typeof value === "number") {
+    if (!Number.isFinite(value)) throw new EncodeError(String(value));
+    if (Number.isInteger(value) && Math.abs(value) < 9.2e18) {
+      const n = BigInt(value);
+      if (n >= 0n) head(out, 0, n);
+      else head(out, 1, -1n - n);
+    } else {
+      const view = new DataView(new ArrayBuffer(8));
+      view.setFloat64(0, value);
+      out.push(0xfb, ...new Uint8Array(view.buffer));
+    }
+  } else if (typeof value === "string") {
+    const bytes = utf8.encode(value);
+    head(out, 3, BigInt(bytes.length));
+    for (const b of bytes) out.push(b);
+  } else if (Array.isArray(value)) {
+    head(out, 4, BigInt(value.length));
+    for (const item of value) write(out, item);
+  } else if (typeof value === "object") {
+    const entries = Object.entries(value)
+      .filter(([, v]) => v !== undefined)
+      .map(([k, v]) => [encode(k), v])
+      .sort((a, b) => compareBytes(a[0], b[0]));
+    head(out, 5, BigInt(entries.length));
+    for (const [k, v] of entries) {
+      for (const b of k) out.push(b);
+      write(out, v);
+    }
+  } else throw new EncodeError(typeof value);
+};
+
+/** Encode any JSON-shaped value. @param {unknown} value @returns {Uint8Array} */
+export const encode = (value) => {
+  const out = [];
+  write(out, value);
+  return Uint8Array.from(out);
+};
+
+class Failure {
+  constructor(error) {
+    this.error = error;
+  }
+}
+
+/** @param {Uint8Array} bytes */
+export const decode = (bytes) => {
+  let offset = 0;
+  const fail = (error) => {
+    throw new Failure(error);
+  };
+  const take = (n) => {
+    if (offset + n > bytes.length) fail({ kind: "truncated", offset });
+    const slice = bytes.subarray(offset, offset + n);
+    offset += n;
+    return slice;
+  };
+  const argument = (info, at) => {
+    if (info < 24) return BigInt(info);
+    const width = { 24: 1, 25: 2, 26: 4, 27: 8 }[info];
+    if (width === undefined) return fail({ kind: "unsupported", offset: at, initial: bytes[at] });
+    return take(width).reduce((n, b) => (n << 8n) | BigInt(b), 0n);
+  };
+  const safe = (n, at) =>
+    n > BigInt(Number.MAX_SAFE_INTEGER) ? fail({ kind: "outOfRange", offset: at }) : Number(n);
+
+  const value = (depth) => {
+    const at = offset;
+    if (depth > MAX_DEPTH) fail({ kind: "tooDeep", offset: at });
+    const initial = take(1)[0];
+    const major = initial >> 5;
+    const info = initial & 0x1f;
+    switch (major) {
+      case 0:
+        return safe(argument(info, at), at);
+      case 1:
+        return -1 - safe(argument(info, at), at);
+      case 3: {
+        const raw = take(safe(argument(info, at), at));
+        try {
+          return fromUtf8.decode(raw);
+        } catch {
+          return fail({ kind: "invalidUtf8", offset: at });
+        }
+      }
+      case 4: {
+        const length = safe(argument(info, at), at);
+        return Array.from({ length }, () => value(depth + 1));
+      }
+      case 5: {
+        const length = safe(argument(info, at), at);
+        const map = {};
+        for (let i = 0; i < length; i++) {
+          const keyAt = offset;
+          const key = value(depth + 1);
+          if (typeof key !== "string") fail({ kind: "nonTextKey", offset: keyAt });
+          if (Object.hasOwn(map, key)) fail({ kind: "duplicateKey", offset: keyAt });
+          map[key] = value(depth + 1);
+        }
+        return map;
+      }
+      case 7:
+        if (info === 20) return false;
+        if (info === 21) return true;
+        if (info === 22) return null;
+        if (info === 27) {
+          const f = new DataView(take(8).slice().buffer).getFloat64(0);
+          return Number.isFinite(f) ? f : fail({ kind: "notFinite", offset: at });
+        }
+        return fail({ kind: "unsupported", offset: at, initial });
+      default:
+        return fail({ kind: "unsupported", offset: at, initial });
+    }
+  };
+
+  try {
+    const decoded = value(0);
+    if (offset !== bytes.length) return { ok: false, error: { kind: "trailingBytes", offset } };
+    if (compareBytes(encode(decoded), bytes) !== 0) {
+      return { ok: false, error: { kind: "nonCanonical" } };
+    }
+    return { ok: true, value: decoded };
+  } catch (error) {
+    if (error instanceof Failure) return { ok: false, error: error.error };
+    throw error;
+  }
+};

package/cli.js

@@ -0,0 +1,197 @@
+#!/usr/bin/env node
+/**
+ * `pata run [dir]`: runs the harness in `dir` on this machine, with the local host (`run.js`), and answers each ask
+ * at the terminal. `dir` holds one `.pata` harness and its capabilities' contracts, one `<name>.json` each, as
+ * `examples/claude-code` does. Without `dir`, it runs that example, which the package ships.
+ *
+ * The host's implementations: `net.ask` asks you, `net.fetch` is Node's `fetch`, and `fs` reads and writes under
+ * `--root`. `shell` is refused, since nothing here keeps a command off the network. The model, `brain.choose`, is a
+ * module you pass with `--model`, or the scripted demo: it fetches the first URL in the task and answers.
+ */
+
+import { existsSync } from "node:fs";
+import { readdir, readFile, writeFile } from "node:fs/promises";
+import { isAbsolute, join, relative, resolve } from "node:path";
+import { createInterface } from "node:readline";
+import { fileURLToPath, pathToFileURL } from "node:url";
+import { parseArgs } from "node:util";
+import { run } from "./run.js";
+
+const USAGE = `usage: pata run [dir] [--input <task>] [--root <dir>] [--model <module.js>]
+
+  dir      a harness and its contracts (default: T1's example, examples/claude-code)
+  --input  the task the run starts with (default: a demo task)
+  --root   the directory fs reads and writes under (default: the current one)
+  --model  a module whose default export answers brain.choose (default: a scripted demo)`;
+
+const DEMO_TASK = "Fetch https://example.com/ and tell me its title.";
+
+/** T1's example: in the package, where `prepack` copies it, or in the repo. */
+const EXAMPLE = ["./examples/claude-code", "../examples/claude-code"]
+  .map((path) => fileURLToPath(new URL(path, import.meta.url)))
+  .find((path) => existsSync(path));
+
+/** Lines read from standard input, one per ask, whether it's a terminal or a pipe. */
+function lines() {
+  const rl = createInterface({ input: process.stdin, terminal: false });
+  const heard = [];
+  const waiting = [];
+  let ended = false;
+  rl.on("line", (line) => (waiting.length > 0 ? waiting.shift()(line) : heard.push(line)));
+  rl.on("close", () => {
+    ended = true;
+    for (const w of waiting.splice(0)) w(null);
+  });
+  return {
+    next: () =>
+      heard.length > 0
+        ? Promise.resolve(heard.shift())
+        : ended
+          ? Promise.resolve(null)
+          : new Promise((r) => waiting.push(r)),
+    close: () => rl.close(),
+  };
+}
+
+/** The scripted demo model: fetch the first URL in the task, then answer from what came back. */
+async function demoModel({ messages }) {
+  const task = messages[0]?.content ?? "";
+  const last = messages.at(-1);
+  if (messages.length === 1) {
+    const url = task.match(/https?:\/\/[^\s"'<>]+[^\s"'<>.,;:!?)]/)?.[0];
+    return url
+      ? { kind: "net.fetch", url }
+      : { kind: "answer", text: "There's no URL in the task." };
+  }
+  const title = last.content.match(/<title>([^<]*)<\/title>/i)?.[1]?.trim();
+  if (last.content === "denied")
+    return { kind: "answer", text: "You didn't allow it, so I didn't fetch it." };
+  return {
+    kind: "answer",
+    text: title ? `Its title is "${title}".` : `It answered: ${last.content.slice(0, 200)}`,
+  };
+}
+
+/** `path` under `root`, or a throw if it would leave it. */
+function under(root, path) {
+  const full = resolve(root, path);
+  const rel = relative(root, full);
+  if (rel.startsWith("..") || isAbsolute(rel)) throw new Error(`${path} is outside ${root}`);
+  return full;
+}
+
+/** The host's handlers, each printing what it does to standard error, and why it failed if it did. */
+function handlers(given) {
+  const said = {};
+  for (const [op, handle] of Object.entries(hosted(given))) {
+    said[op] = (args, context) =>
+      handle(args, context).catch((error) => {
+        process.stderr.write(`${op}: failed: ${error?.message ?? error}\n`);
+        throw error;
+      });
+  }
+  return said;
+}
+
+function hosted({ root, model, ask }) {
+  const say = (text) => process.stderr.write(`${text}\n`);
+  const refused = (op) => async () => {
+    throw new Error(
+      `${op} isn't available: the local runner has no sandbox to keep a command off the network`,
+    );
+  };
+  return {
+    "brain.choose": async (args) => {
+      const choice = await model(args);
+      say(`model: ${choice.kind === "answer" ? "answers" : `chooses ${choice.kind}`}`);
+      return choice;
+    },
+    "net.ask": async ({ url }) => {
+      process.stderr.write(`ask: allow ${url}? [y/N] `);
+      const line = await ask();
+      const answer = /^\s*y(es)?\s*$/i.test(line ?? "") ? "allow" : "deny";
+      // A terminal shows what was typed; a pipe doesn't.
+      if (!process.stdin.isTTY) say(line ?? "");
+      say(`ask: ${answer === "allow" ? "allowed" : "denied"}`);
+      return answer;
+    },
+    "net.fetch": async ({ url }, { signal }) => {
+      say(`net.fetch: ${url}`);
+      const response = await fetch(url, { signal });
+      return await response.text();
+    },
+    "fs.read": async ({ path }) => {
+      say(`fs.read: ${path}`);
+      return await readFile(under(root, path), "utf8");
+    },
+    "fs.write": async ({ path, text }) => {
+      say(`fs.write: ${path}`);
+      await writeFile(under(root, path), text);
+      return "written";
+    },
+    "shell.run": refused("shell.run"),
+    "shell.online": refused("shell.online"),
+  };
+}
+
+/** The harness and contracts in `dir`. */
+async function load(dir) {
+  const names = await readdir(dir);
+  const harnesses = names.filter((n) => n.endsWith(".pata"));
+  if (harnesses.length !== 1)
+    throw new Error(`${dir} needs exactly one .pata harness, not ${harnesses.length}`);
+  const capabilities = {};
+  for (const name of names.filter((n) => n.endsWith(".json"))) {
+    capabilities[name.slice(0, -".json".length)] = JSON.parse(
+      await readFile(join(dir, name), "utf8"),
+    );
+  }
+  return { source: await readFile(join(dir, harnesses[0]), "utf8"), capabilities };
+}
+
+async function main(argv) {
+  const { values, positionals } = parseArgs({
+    args: argv,
+    allowPositionals: true,
+    options: {
+      input: { type: "string" },
+      root: { type: "string" },
+      model: { type: "string" },
+      help: { type: "boolean", short: "h" },
+    },
+  });
+  if (values.help || positionals[0] !== "run" || positionals.length > 2) {
+    console.error(USAGE);
+    return values.help ? 0 : 2;
+  }
+  const { source, capabilities } = await load(positionals[1] ?? EXAMPLE);
+  const model = values.model
+    ? (await import(pathToFileURL(resolve(values.model)).href)).default
+    : demoModel;
+  if (typeof model !== "function")
+    throw new Error(`${values.model} has no default export to answer brain.choose`);
+
+  const input = values.input ?? DEMO_TASK;
+  process.stderr.write(`task: ${input}\n`);
+  const stdin = lines();
+  try {
+    const { outcome } = await run(
+      source,
+      capabilities,
+      handlers({ root: resolve(values.root ?? "."), model, ask: stdin.next }),
+      { input },
+    );
+    console.log(JSON.stringify(outcome));
+    return outcome?.kind === "halted" ? 0 : 1;
+  } finally {
+    stdin.close();
+  }
+}
+
+main(process.argv.slice(2)).then(
+  (code) => process.exit(code),
+  (error) => {
+    console.error(`pata: ${error?.message ?? error}`);
+    process.exit(1);
+  },
+);

package/examples/claude-code/agent.pata

@@ -0,0 +1,31 @@
+harness claude_code(task: String) -> String
+
+uses brain, fs, shell, net, session
+
+type Message = {role: String, content: String}
+
+carry history: List[Message] = [{role: "user", content: task}]
+carry turns: Int = 0
+
+stop   = receive said from session.user when said == "stop"
+reply  = brain.choose(messages: history) until stop
+choice = reply
+url    = match choice { net.fetch(c) => c.url, shell.online(c) => c.url, _ => "" }
+asked  = net.ask(url: url) when url != "" until stop
+result = perform choice when (match asked { ok(a) => a == "allow", skipped => true, _ => false }) until stop
+
+answer = match choice { answer(a) => a.text, _ => "" }
+seen   = match result {
+  ok(v)     => v
+  failed(e) => concat("failed: ", e)
+  refused   => "not allowed"
+  skipped   => "denied"
+}
+heard  = match stop { ok(s) => true, skipped => false }
+
+next history = append(append(history, {role: "assistant", content: str(choice)}), {role: "tool", content: seen})
+next turns   = turns + 1
+
+return (if heard then "interrupted" else answer) when heard or answer != "" or turns >= 20
+
+otherwise return "interrupted"

package/examples/claude-code/brain.json

@@ -0,0 +1,25 @@
+{
+  "operations": {
+    "choose": {
+      "input": {
+        "Record": {
+          "messages": { "List": { "Record": { "role": "String", "content": "String" } } }
+        }
+      },
+      "output": {
+        "Variant": {
+          "tag": "kind",
+          "cases": {
+            "answer": { "Record": { "text": "String" } },
+            "fs.read": { "Record": { "path": "String" } },
+            "fs.write": { "Record": { "path": "String", "text": "String" } },
+            "shell.run": { "Record": { "command": "String" } },
+            "shell.online": { "Record": { "command": "String", "url": "String" } },
+            "net.fetch": { "Record": { "url": "String" } }
+          }
+        }
+      },
+      "ret": { "e": "list", "items": [{ "e": "lit", "v": "model" }] }
+    }
+  }
+}

package/examples/claude-code/fs.json

@@ -0,0 +1,10 @@
+{
+  "operations": {
+    "read": { "input": { "Record": { "path": "String" } }, "output": "String" },
+    "write": {
+      "input": { "Record": { "path": "String", "text": "String" } },
+      "output": "String",
+      "effect": true
+    }
+  }
+}

package/examples/claude-code/mcp.json

@@ -0,0 +1,25 @@
+{
+  "operations": {
+    "call": {
+      "input": { "Record": { "server": "String", "tool": "String", "input": "String" } },
+      "output": "String",
+      "effect": true,
+      "pre": {
+        "e": "op",
+        "op": "contains",
+        "args": [
+          { "e": "get", "of": { "e": "var", "name": "grant" }, "field": "netAllow" },
+          { "e": "get", "of": { "e": "var", "name": "args" }, "field": "server" }
+        ]
+      },
+      "ret": { "e": "list", "items": [{ "e": "lit", "v": "web" }] },
+      "footprint": {
+        "e": "record",
+        "fields": {
+          "reaches": { "e": "get", "of": { "e": "var", "name": "args" }, "field": "server" }
+        }
+      }
+    }
+  },
+  "grant": { "Record": { "netAllow": { "List": "String" } } }
+}