diff --git a/AlgebraicDataflowArchitectureModel/models/VotingSystem.model b/AlgebraicDataflowArchitectureModel/models/VotingSystem.model
new file mode 100644
index 0000000..ff425db
--- /dev/null
+++ b/AlgebraicDataflowArchitectureModel/models/VotingSystem.model
@@ -0,0 +1,14 @@
+channel Signup {
+	out accounts(acDB:Map, signUp(aid:Str, name:Str)) = insert(acDB, aid, {"name": name, "vote": null})
+}
+
+channel Cast(aid:Str) {
+	out accounts.{aid}.vote(preV, cast(v:Str)) = v
+}
+
+channel Collect {
+	for EachAccount(aid:Str) {
+		in accounts.{aid}.vote(preV:Str, collect(m)) = m.{aid}
+	}
+	out counts(preCnts:Json, collect(m)) = m
+}
\ No newline at end of file