diff --git a/programs/issue8.zar b/programs/issue8.zar
new file mode 100644
index 0000000..73cb09a
--- /dev/null
+++ b/programs/issue8.zar
@@ -0,0 +1,5 @@
+main:
+  p <~ uniform([1]:[int])        
+  x <~ bernoulli(1/2)
+  y <~ bernoulli(1/2)
+  return x