From 409b98ab5d62337c3e8b7731e0099d80dfb06444 Mon Sep 17 00:00:00 2001
From: Alex Shelkovnykov <a@ashelkov.com>
Date: Tue, 5 Sep 2023 13:40:07 -0600
Subject: [PATCH] hoon: add +po

---
 hoon/scaffolding/playpen.hoon | 53 +++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)

diff --git a/hoon/scaffolding/playpen.hoon b/hoon/scaffolding/playpen.hoon
index 00c3e49..221933b 100644
--- a/hoon/scaffolding/playpen.hoon
+++ b/hoon/scaffolding/playpen.hoon
@@ -859,6 +859,59 @@
 ::
 ::  Exotic bases
 ::
+++  po                                                  ::  phonetic base
+  ~/  %po
+  =+  :-  ^=  sis                                       ::  prefix syllables
+      'dozmarbinwansamlitsighidfidlissogdirwacsabwissib\
+      /rigsoldopmodfoglidhopdardorlorhodfolrintogsilmir\
+      /holpaslacrovlivdalsatlibtabhanticpidtorbolfosdot\
+      /losdilforpilramtirwintadbicdifrocwidbisdasmidlop\
+      /rilnardapmolsanlocnovsitnidtipsicropwitnatpanmin\
+      /ritpodmottamtolsavposnapnopsomfinfonbanmorworsip\
+      /ronnorbotwicsocwatdolmagpicdavbidbaltimtasmallig\
+      /sivtagpadsaldivdactansidfabtarmonranniswolmispal\
+      /lasdismaprabtobrollatlonnodnavfignomnibpagsopral\
+      /bilhaddocridmocpacravripfaltodtiltinhapmicfanpat\
+      /taclabmogsimsonpinlomrictapfirhasbosbatpochactid\
+      /havsaplindibhosdabbitbarracparloddosbortochilmac\
+      /tomdigfilfasmithobharmighinradmashalraglagfadtop\
+      /mophabnilnosmilfopfamdatnoldinhatnacrisfotribhoc\
+      /nimlarfitwalrapsarnalmoslandondanladdovrivbacpol\
+      /laptalpitnambonrostonfodponsovnocsorlavmatmipfip'
+      ^=  dex                                           ::  suffix syllables
+      'zodnecbudwessevpersutletfulpensytdurwepserwylsun\
+      /rypsyxdyrnuphebpeglupdepdysputlughecryttyvsydnex\
+      /lunmeplutseppesdelsulpedtemledtulmetwenbynhexfeb\
+      /pyldulhetmevruttylwydtepbesdexsefwycburderneppur\
+      /rysrebdennutsubpetrulsynregtydsupsemwynrecmegnet\
+      /secmulnymtevwebsummutnyxrextebfushepbenmuswyxsym\
+      /selrucdecwexsyrwetdylmynmesdetbetbeltuxtugmyrpel\
+      /syptermebsetdutdegtexsurfeltudnuxruxrenwytnubmed\
+      /lytdusnebrumtynseglyxpunresredfunrevrefmectedrus\
+      /bexlebduxrynnumpyxrygryxfeptyrtustyclegnemfermer\
+      /tenlusnussyltecmexpubrymtucfyllepdebbermughuttun\
+      /bylsudpemdevlurdefbusbeprunmelpexdytbyttyplevmyl\
+      /wedducfurfexnulluclennerlexrupnedlecrydlydfenwel\
+      /nydhusrelrudneshesfetdesretdunlernyrsebhulryllud\
+      /remlysfynwerrycsugnysnyllyndyndemluxfedsedbecmun\
+      /lyrtesmudnytbyrsenwegfyrmurtelreptegpecnelnevfes'
+  |%
+  ++  ins  ~/  %ins                                     ::  parse prefix
+           |=  a=@tas
+           =+  b=0
+           |-  ^-  (unit @)
+           ?:(=(256 b) ~ ?:(=(a (tos b)) [~ b] $(b +(b))))
+  ++  ind  ~/  %ind                                     ::  parse suffix
+           |=  a=@tas
+           =+  b=0
+           |-  ^-  (unit @)
+           ?:(=(256 b) ~ ?:(=(a (tod b)) [~ b] $(b +(b))))
+  ++  tos  ~/  %tos                                     ::  fetch prefix
+           |=(a=@ ?>((lth a 256) (cut 3 [(mul 3 a) 3] sis)))
+  ++  tod  ~/  %tod                                     ::  fetch suffix
+           |=(a=@ ?>((lth a 256) (cut 3 [(mul 3 a) 3] dex)))
+  --
+::
 ++  fa                                                  ::  base58check
   =+  key='123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz'
   =/  yek=@ux  ~+