diff --git a/test/contracts/hagia/spend.aes b/test/contracts/hagia/spend.aes
new file mode 100644
index 0000000..0056e2c
--- /dev/null
+++ b/test/contracts/hagia/spend.aes
@@ -0,0 +1,14 @@
+include "List.aes"
+
+contract C =
+
+  payable stateful entrypoint split(targets : list(address)) =
+    let value_per_person = Call.value / List.length(targets)
+    spend_to_all(value_per_person, targets)
+
+  stateful function
+    spend_to_all : (int, list(address)) => unit
+    spend_to_all(_, []) = ()
+    spend_to_all(value, addr::rest) =
+      Chain.spend(addr, value)
+      spend_to_all(value, rest)
\ No newline at end of file