ames done

1 files changed, 10 insertions, 0 deletions

diff --git a/ocaml/lib/effects.ml b/ocaml/lib/effects.ml
index e73af3e..f0d9955 100644
--- a/ocaml/lib/effects.ml
+++ b/ocaml/lib/effects.ml
@@ -92,6 +92,16 @@ let log_ovum ~msg:_ =
       (Noun.atom 0); (* simplified - would be text *)
   }
 
+(* Create an Ames packet ovum *)
+let ames_packet ~from:_ ~data:_ =
+  {
+    wire = Noun.atom 0;  (* simplified routing *)
+    card = Noun.cell
+      (Noun.atom 2)  (* ames tag *)
+      (Noun.atom 0); (* simplified - would be packet data *)
+  }
+  (* Note: from and data ignored for now, would be encoded in card *)
+
 (* Parse effects from Arvo output
  *
  * In a real implementation, this would parse the noun structure