Data commit

Task/Department-numbers/Transd/department-numbers.transd

@@ -0,0 +1,11 @@
+#lang transd
+
+MainModule : {
+    _start: (lambda
+        (lout "Police | Sanit. | Fire")
+        (for i in Range(1 8) where (not (mod i 2)) do
+            (for j in Range(1 8) where (neq i j) do
+                (for k in Range(1 8) where (and (neq i k) (neq j k)) do
+           (if (eq (+ i j k) 12) (lout i "        " j "        " k)))))
+    )
+}