Data commit

Task/Prime-decomposition/V/prime-decomposition-1.v

@@ -0,0 +1,10 @@
+[prime-decomposition
+   [inner [c p] let
+       [c c * p >]
+           [p unit]
+           [ [p c % zero?]
+                   [c c p c / inner cons]
+                   [c 1 + p inner]
+             ifte]
+       ifte].
+   2 swap inner].

Task/Prime-decomposition/V/prime-decomposition-2.v

@@ -0,0 +1,10 @@
+[prime-decomposition
+   [inner
+       [dup * <]
+           [pop unit]
+           [ [% zero?]
+                   [ [p c : [c p c / c]] view i inner cons]
+                   [succ inner]
+             ifte]
+       ifte].
+   2 inner].

Task/Prime-decomposition/V/prime-decomposition-3.v

@@ -0,0 +1 @@
+|1221 prime-decomposition puts