From 7fbbe476e067e79019c23121c1aa9d2c919bfe91 Mon Sep 17 00:00:00 2001
From: Raymond Pasco <ray@the.ug>
Date: Fri, 7 Aug 2015 12:26:48 -0400
Subject: [PATCH] Scramble phonemic base with ++ob

---
 arvo/hoon.hoon | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index 56e7ceea7..be2017f0c 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -3852,7 +3852,8 @@
   ++  dem  (ape (bass 1.000 ;~(plug ted:ab (star ;~(pfix dog tid:ab)))))
   ++  dim  (ape (bass 10 ;~(plug sed:ab (star sid:ab))))
   ++  dum  (bass 10 (plus sid:ab))
-  ++  fed  ;~  pose
+  ++  fed  %+  cook  fend:ob
+           ;~  pose
              tiq:ab
              %+  bass  0x1.0000.0000.0000.0000
                ;~  plug
@@ -3933,20 +3934,21 @@
           ==
         ::
             %p
-          =+  dyx=(met 3 q.p.lot)
+          =+  sxz=(feen:ob q.p.lot)
+          =+  dyx=(met 3 sxz)
           :-  '~'
           ?:  (lte dyx 1)
-            (weld (trip (tod:po q.p.lot)) rex)
-          =+  dyy=(met 4 q.p.lot)
+            (weld (trip (tod:po sxz)) rex)
+          =+  dyy=(met 4 sxz)
           =+  imp=*@
           |-  ^-  tape
           ?:  =(imp dyy)
             rex
           %=  $
-            q.p.lot  (rsh 4 1 q.p.lot)
+            sxz  (rsh 4 1 sxz)
             imp      +(imp)
             rex
-              =+  log=(end 4 1 q.p.lot)
+              =+  log=(end 4 1 sxz)
               ;:  weld
                 (trip (tos:po (rsh 3 1 log)))
                 (trip (tod:po (end 3 1 log)))