::  belt: runtime belt structure
::
|_  =belt:dill
++  grad  %noun
::  +grab: convert from
::
++  grab
  |%
  ++  noun  belt:dill
  ++  json
    ^-  $-(^json belt:dill)
    =,  dejs:format
    %-  of
    :~  aro+(su (perk %d %l %r %u ~))
        bac+ul
        ctl+(cu taft so)
        del+ul
        met+(cu taft so)
        ret+ul
        txt+(ar (cu taft so))
    ==
  --
::  +grow: convert to
::
++  grow
  |%
  ++  noun  belt
  --
--