View difference between Paste ID: 5Y7Wrnbs and xjenuzcY

 (defun brfk (i)
   (let ((s (coerce i'list)))
     (labels((lbf ()
               (do(r x)((or x(not s))(reverse r))
                       (push (case (pop s)
                               (#\> 'right)
                               (#\< `left)
                               (#\+ `inc)
                               (#\- `dec)
                               (#\. `print)
                               (#\, `read)
                               (#\[ `(bracketed ,@(lbf)))
                               (#\] (setf x t) (go /))
                               (t (go /)))
                             r)/)))
       `(brainfuck
          ,@(lbf)))))
 
 (defun simplify (bf)
   (optima:match bf
     ((cons 'brainfuck rest) `(brainfuck ,@(simplify rest)))
     ((list* (list 'add n) 'inc rest) (simplify (cons `(add ,(1+ n)) rest)))
     ((list* (list 'add n) 'dec rest) (simplify (cons `(add ,(1- n)) rest)))
     ((list* (list 'add n) x rest) `((add ,n) ,@(simplify (cons x rest))))
     ((cons 'inc rest) (simplify (cons '(add 1) rest)))
     ((cons 'dec rest) (simplify (cons '(add -1) rest)))
     ((list* (list 'move n) 'left rest) (simplify (cons `(move ,(1- n)) rest)))
     ((list* (list 'move n) 'right rest) (simplify (cons `(move ,(1+ n)) rest)))
     ((list* (list 'move n) x rest) `((move ,n) ,@(simplify (cons x rest))))
     ((cons 'left rest) (simplify (cons '(move -1) rest)))
     ((cons 'right rest) (simplify (cons '(move 1) rest)))
     ((cons (cons 'bracketed sub) rest) `((bracketed ,@(simplify sub)) ,@(simplify rest)))
     ((cons a rest) `(,a ,@(simplify rest)))
     (nil nil)))
 
 (defun as-ps(bf)
   (optima:match bf
     (nil nil)
     ((cons 'brainfuck rest) `(let ((a (make-array)) (p 0)) ,@(as-ps rest)))
     ((cons (list 'add 0) rest) (as-ps rest))
     ((cons (list 'add x) rest) (cons`(setf(aref a p)(+(or (aref a p)0),x)) (as-ps rest)))
     ((cons (list 'move 0) rest) (as-ps rest))
     ((cons (list 'move x) rest) (cons`(incf p ,x)(as-ps rest)))
     ((cons 'print rest) (cons`((ps:@ console log)((ps:@ *String from-char-code) (or(aref a p)0))) (as-ps rest)))
     ((cons 'read rest) (cons `(setf(aref a p) ((ps:@ (prompt) char-code-at) 0)) (as-ps rest)))
     ((cons (cons 'bracketed sub) rest)
      (cons `(loop until (= 0 (or (aref a p)0)) do ,@(as-ps sub))
-     (cons `(unless(= 0 (or(aref a p)0))(do(e)(e),@(as-ps sub)(setf e(= 0 (aref a p)))))
+
 
 (ps:ps* (as-ps (simplify (brfk "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.") )))
 
 "(function () {
     var a = new Array();
     var p = 0;
     a[p] = (a[p] || 0) + 10;
     while (0 !== (a[p] || 0)) {
-    if (0 !== (a[p] || 0)) {
+        ++p;
-        var e = null;
+        a[p] = (a[p] || 0) + 7;
-        for (; !e; ) {
+        ++p;
-            ++p;
+        a[p] = (a[p] || 0) + 10;
-            a[p] = (a[p] || 0) + 7;
+        ++p;
-            ++p;
+        a[p] = (a[p] || 0) + 3;
-            a[p] = (a[p] || 0) + 10;
+        ++p;
-            ++p;
+        a[p] = (a[p] || 0) + 1;
-            a[p] = (a[p] || 0) + 3;
+        p += -4;
-            ++p;
+        a[p] = (a[p] || 0) + -1;
-            a[p] = (a[p] || 0) + 1;
+
-            p += -4;
+
-            a[p] = (a[p] || 0) + -1;
+
-            e = 0 === a[p];
+
-        };
+
     a[p] = (a[p] || 0) + 1;
     console.log(String.fromCharCode(a[p] || 0));
     a[p] = (a[p] || 0) + 7;
     console.log(String.fromCharCode(a[p] || 0));
     console.log(String.fromCharCode(a[p] || 0));
     a[p] = (a[p] || 0) + 3;
     console.log(String.fromCharCode(a[p] || 0));
     ++p;
     a[p] = (a[p] || 0) + 2;
     console.log(String.fromCharCode(a[p] || 0));
     p += -2;
     a[p] = (a[p] || 0) + 15;
     console.log(String.fromCharCode(a[p] || 0));
     ++p;
     console.log(String.fromCharCode(a[p] || 0));
     a[p] = (a[p] || 0) + 3;
     console.log(String.fromCharCode(a[p] || 0));
     a[p] = (a[p] || 0) + -6;
     console.log(String.fromCharCode(a[p] || 0));
     a[p] = (a[p] || 0) + -8;
     console.log(String.fromCharCode(a[p] || 0));
     ++p;
     a[p] = (a[p] || 0) + 1;
     console.log(String.fromCharCode(a[p] || 0));
     ++p;
     return console.log(String.fromCharCode(a[p] || 0));
 })();"