working on registers, awip (a work in progress)

stash/example.vm

@@ -1,22 +1,3 @@
-function plus(a, b) {
-  minus(a, minus(0, b))
-}
-
-function times(a, b) {
-  if (eq(b, 0)) {
-    0
-  } else {
-    plus(a, times(a, minus(b, 1)))
-  }
-}
-
-function eq(a, b) {
-  if (minus(a, b)) {
-    0
-  } else {
-    1
-  }
-}
 
 function factorial(n) {
   if (eq(n, 1)) {