Initial data commit

Task/Trabb-Pardo-Knuth-algorithm/Symsyn/trabb-pardo-knuth-algorithm.symsyn

@@ -0,0 +1,37 @@
+|Trabb Pardo–Knuth algorithm
+
+a : 11 0
+
+ i
+ if i LE 10
+    [] $s
+    ~ $s w
+    w a.i
+   + i
+    goif
+ endif
+ 10 i
+ if i GE 0
+    call f
+    if x GT 400
+       'too large' $s
+    else
+       ~ x $s
+    endif
+    ~ i $r
+    + ' ' $r
+    + $r $s.1
+    $s []
+    - i
+    goif
+ endif
+ stop
+
+f a.i t
+  * t t x
+  * x t x
+  * 5 x
+  abs t
+  sqrt t y
+  + y x
+  return