try/bin/[[def 'Unacceptably slow arm define'] [poxo '|>(xmlt | - "")']]

try/bin/def.hoon

@@ -0,0 +1,39 @@
+!:
+::  Define  ::
+=>  |%
+    ++  isin   |=  [a=tape b=tape]
+      ?.  (gte (lent a) (lent b))  |
+      ?:  =(b (scag (lent b) a))   &
+      $(a +.a)
+    ::
+    ++  range  |=  [[a=tape b=tape] c=wain]
+      ^-  wain
+      ?~  c  ~
+      ?.  (isin (trip i.c) a)  $(c t.c)
+      :-  i.c  =>  .(c t.c)
+      |-  ^-  wain
+      ?~  c  ~
+      ?:  (isin (trip i.c) b)  ~
+      [i.c $(c t.c)]
+    ::
+    ++  vanes  
+      %-  turn  :_  |=([a=@t ~] a)
+      (~(tap by r:;;(arch .^(cy//=arvo=))))
+    --
+|=  ^
+|=  [a=@tas ~]
+=-  ~[te/-]~
+%-  zing
+%+  turn  vanes  |=  b=@t
+=-  ?~  -  ~
+    [(cat 3 '%' b) -]
+%+  range  ["++  {(trip a)}" "++"]
+=-  (lore ;;(,@ .^(cx//=arvo=/[b]/hoon)))
+'''
+++  by
+my 
+stuff
+++ron
+
+as
+'''

try/bin/poxo.hoon

@@ -0,0 +1,4 @@
+|=  ^
+|=  [a=manx ~]
+=-  ~[$/!>(-)]~
+(xmlt | a "")