::
::::  /hoon/udon/mar
  ::
/+    cram
::
|_  mud=@t
++  grow
  |%
  ++  mime  [/text/x-unmark (as-octs:mimes:html mud)]
  ++  txt
    (to-wain:format mud)
  ++  front  :: XX performance, types
    ^-  (map term knot)
    =/  reamed  (ream mud)
    ~&  >>  reamed=reamed
    %-  ~(run by inf:(static:cram reamed))
    |=  a=dime  ^-  cord
    ?+  (end 3 p.a)  (scot a)
      %t  q.a
    ==
  --
++  grab
  |%
  ++  mime  |=((pair mite octs) q.q)
  ++  noun  @t
  ++  txt   of-wain:format
  --
++  grad  %txt
--