replaces all tall cnsg hoons with %#

app/talk.hoon

@@ -2356,10 +2356,9 @@
         ?:  &(?=(^ pre) p.u.pre)  q.u.pre
         ?:  pat.sep  " "
         =-  (weld - q:(fall pre [p=| q=" "]))
-        %~  ar-glyf  ar
+        %#  ar-glyf  ar
         ?:  =(who self)  aud
         (~(del in aud) [who %inbox])
-        ==
       =/  lis/(list tape)
         %+  simple-wrap
           `tape``(list @)`(tuba (trip msg.sep))

sys/hoon.hoon

@@ -9800,10 +9800,9 @@
       ~>(%mean.[%leaf "rest-loop"] !!)
     =>  .(fan (~(gas in fan) leg))
     %-  fork
-    %~  tap  in
+    %#  tap  in
     %-  ~(gas in *(set type))
     (turn leg |=({p/type q/hoon} (play(sut p) q)))
-    ==
   ::
   ++  take
     |=  {vit/vein duz/tyro}
@@ -10270,11 +10269,10 @@
       :_  q.doy
       :_  p.doy
       %^  cat  3
-        %~  rent  co
+        %#  rent  co
         :+  %$  %ud
         %-  ~(rep by (~(run by q.s.q.sut) |=(tomb ~(wyt by q))))
         |=([[@ a=@u] b=@u] (add a b))
-        ==
       %^  cat  3
         ?-(p.q.sut $gold '.', $iron '|', $lead '?', $zinc '&')
       =+  gum=(mug q.s.q.sut)

sys/vane/clay.hoon

@@ -2276,11 +2276,10 @@
       ?:  |(?=($~ for) (may-read u.for %z yon pax))  ~
       %-  malt
       %+  skim
-        %~  tap  by
+        %#  tap  by
         =<  q
         %-  aeon-to-yaki
         yon
-        ==
       |=  {p/path q/lobe}
       ?|  ?=($~ pax)
           ?&  !?=($~ p)
@@ -3002,12 +3001,11 @@
               ~
             `[pax ~]
           =+  ^=  bof
-              %-  %~  int  by
+              %-  %#  int  by
                   %-  ~(uni by `(map path *)`new.dal.dat)
                   %-  ~(uni by `(map path *)`cal.dal.dat)
                   %-  ~(uni by `(map path *)`can.dal.dat)
                   `(map path *)`old.dal.dat
-                  ==
               %-  ~(uni by `(map path *)`new.dob.dat)
               %-  ~(uni by `(map path *)`cal.dob.dat)
               %-  ~(uni by `(map path *)`can.dob.dat)
@@ -3343,12 +3341,11 @@
         =.  erg.dat  %-  ~(uni by del)
                      ^-  (map path ?)
                      %.  |=(lobe %&)
-                     %~  run  by
+                     %#  run  by
                      %-  ~(uni by new.dal.dat)
                      %-  ~(uni by cal.dal.dat)
                      %-  ~(uni by cas)
                      hot
-                     ==
         checkout
       ::
       ::  Convert new commit into actual data (i.e. blobs rather than lobes).

sys/vane/dill.hoon

@@ -454,14 +454,14 @@
       ?.  ?=($flow -.kyz)  ~
       %-  some
       %.  q.kyz
-      %~  into  as
+      %#  into  as
       :-  [~ hen u.ore.all]
       :*  p.kyz
           [~ ~]
           80
           0
           (tuba "<awaiting {(trip p.kyz)}, this may take a few minutes>")
-      ==  ==
+      ==
     --
 |%                                                      ::  poke+peek pattern
 ++  call                                                ::  handle request

sys/zuse.hoon

@@ -4182,11 +4182,11 @@
       (weld (trip -.man) `tape`[':' (trip +.man)])
     ::                                                  ::  ++clot:en-xml:html
     ++  clot  ~+                                        ::  self-closing tags
-      %~  has  in
+      %#  has  in
       %-  silt  ^-  (list term)  :~
         %area  %base  %br  %col  %command  %embed  %hr  %img  %inputt
         %keygen  %link  %meta  %param     %source   %track  %wbr
-      ==  ==
+      ==
     --  ::en-xml
   ::                                                    ::  ++de-xml:html
   ++  de-xml                                            ::  xml parser