From 15e6734ccba5ab281d1fb35dd34b07e760f028ee Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Tue, 29 Jul 2014 16:45:33 -0700
Subject: [PATCH 1/4] Added :wipe gall %wipe app retcon utility.

---
 main/bin/wipe.hoon | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 main/bin/wipe.hoon

diff --git a/main/bin/wipe.hoon b/main/bin/wipe.hoon
new file mode 100644
index 000000000..4ccdb4d3f
--- /dev/null
+++ b/main/bin/wipe.hoon
@@ -0,0 +1,11 @@
+!:
+::  /=main=/bin/wipe/hoon
+::
+=*  our  -<
+|=  *
+|=  gon=[term (pole term)]
+:_  ~
+%+  turn  `(list term)`gon
+|=  app=term
+^-  gift
+[%xy /g %wipe [our app]]
\ No newline at end of file

From 473944dca1c00cc5d12dc07d26ca94ca5ed3d51a Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Tue, 29 Jul 2014 18:05:05 -0700
Subject: [PATCH 2/4] %zuse in chat hax

---
 main/bin/chat.hoon | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/main/bin/chat.hoon b/main/bin/chat.hoon
index 3da14aa74..a2bb423b8 100644
--- a/main/bin/chat.hoon
+++ b/main/bin/chat.hoon
@@ -1,6 +1,7 @@
 !:
 ::  /=main=/bin/chat/hoon
 ::
+=*  sed   +
 =>  %=    .
         +
       =>  +
@@ -78,7 +79,7 @@
             ^-  (unit ,[p=@t q=tank])
             =+  hun=(rush a wide:vast)
             ?~  hun  ~
-            ?~(a ~ [~ a (sell (slap seed u.hun))])
+            ?~(a ~ [~ a (sell (slap !>(sed) u.hun))])
           ::
           ++  mess
             %+  cook  |=(a=^mess a)

From cc9bf52fc86ee7fe059727a2b48ce5e31af3194e Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Tue, 29 Jul 2014 18:09:11 -0700
Subject: [PATCH 3/4] working* %zuse in chat hax

---
 main/bin/chat.hoon | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main/bin/chat.hoon b/main/bin/chat.hoon
index a2bb423b8..a7e38df91 100644
--- a/main/bin/chat.hoon
+++ b/main/bin/chat.hoon
@@ -1,10 +1,10 @@
 !:
 ::  /=main=/bin/chat/hoon
 ::
-=*  sed   +
 =>  %=    .
         +
       =>  +
+      =*  sed  .
       =>  ^/===/lib/pony
       =+  ^=  flag
           $?  %leet

From 0a01d489df99458506c573145190c8fa151e8dee Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Wed, 30 Jul 2014 10:53:30 -0700
Subject: [PATCH 4/4] Various fixes and improvements.

---
 arvo/batz.hoon          |  2 +-
 arvo/ford.hoon          | 18 +-----------------
 main/pro/down/core.hoon | 26 +-------------------------
 3 files changed, 3 insertions(+), 43 deletions(-)

diff --git a/arvo/batz.hoon b/arvo/batz.hoon
index 2972014e8..9e7c2794a 100644
--- a/arvo/batz.hoon
+++ b/arvo/batz.hoon
@@ -1,4 +1,4 @@
-::
+!:
 ::  batz (4b), shell
 ::
 |=  pit=vase
diff --git a/arvo/ford.hoon b/arvo/ford.hoon
index fade8c3f7..369c2b95b 100644
--- a/arvo/ford.hoon
+++ b/arvo/ford.hoon
@@ -407,22 +407,6 @@
         (flaw cof [%leaf "syntax error: {<p.p.vex>} {<q.p.vex>}"] ~)
       (fine cof p.u.q.vex)
     ::
-    ++  fame                                            ::  naked structure
-      |=  [cof=cafe for=mark bek=beak]
-      ^-  (bolt vase)
-      =+  pax=/gate/[for]/str
-      =+  ^=  bem  ^-  beam
-          :_  pax
-          ?:  =(p.bek our)  bek
-          =+  oak=[our %main %da now]
-          ?.  =(~ (ska %cy (tope [oak pax])))  oak
-          bek
-      %+  cope  (fade cof bem)
-      |=  [cof=cafe hyd=hood]
-      %+  cope  (ably:(meow bem ~) cof for hyd)
-      |=  [cof=cafe gen=twig]
-      (maim cof pit gen)
-    ::
     ++  fang                                            ::  protocol door
       |=  [cof=cafe for=mark bek=beak]
       ^-  (bolt vase)
@@ -640,7 +624,7 @@
       ?.  (slab %grab p.tux)
         (flaw cof [%leaf "ford: no grab: {<[for bek]>}"]~)
       =+  gab=(slap tux [%cnzy %grab])
-      ?.  (slab %noun p.tux)
+      ?.  (slab %noun p.gab)
         (flaw cof [%leaf "ford: no noun: {<[for bek]>}"]~)
       %+  cope  (maul cof (slap gab [%cnzy %noun]) [%noun q.sam])
       |=  [cof=cafe pro=vase]
diff --git a/main/pro/down/core.hoon b/main/pro/down/core.hoon
index 36497f6f5..8a568eabd 100644
--- a/main/pro/down/core.hoon
+++ b/main/pro/down/core.hoon
@@ -2,31 +2,7 @@
 ::::  /hoon/core/down/pro
   ::
 /?  314
-  !:
-::::  describe
-  ::
-=>
-|%
-++  down
-  $&  [p=down q=down]
-  $%  [%$ p=tape]
-      [%code p=tape]
-      [%inco p=tape]
-      [%head p=@ud q=down]
-      [%link p=tape q=tape r=(unit tape)]
-      [%lord p=(list down)]
-      [%lund p=(list down)]
-      [%parg p=down]
-      [%quot p=down]
-      [%rong p=down]
-      [%emph p=down]
-      [%hrul ~]
-      [%html p=tape]
-  ==
---
-  ::
-::::  compute
-  ::
+/-  down
 |_  don=down
 ++  grab                                                ::  convert from
   |%