-- Pricing-demo corpus (plan 3, Task 3): mirrors
-- docs/examples/pricing/types/product.wo's `set_price` -- the write path
-- whose `insert Price { ... }` is the SQL sublanguage's one opaque node
-- (compiler/src/parser.ml's `insert`/`select` "parses but traps"
-- contract) and lowers to a single DB_STUB opcode (docs/plan/oop-vm/
-- 00-wob-format.md), which traps WO_T_DB unconditionally ("engine not
-- linked") -- the spec's parse-but-trap story, proven end to end.
-- Trimmed for milestone-1 grammar: `in txn`, `assert ... otherwise
-- abort` (no assert/otherwise/abort keywords in this grammar), and the
-- `service rest` block -- only the `insert` statement `set_price`
-- actually needs to prove the trap is kept. `self.id` became plain
-- `self` since the `id` field itself was trimmed; it doesn't matter to
-- the trap -- `insert`'s body is never re-parsed, only captured verbatim.
class Price {
  amount: Int
}

class Product {
  prices: multi Price

  fn set_price(amount: Int) {
    insert Price { product: self, amount: amount }
  }
}

fn main() {
  let prod = Product { prices: multi_new() }
  prod.set_price(4999)
}