::
::::  /hook/door/dill-blit/mar
  ::
/?    314
/-    *sole
|_  dib=dill-blit
::
++  grab                                                ::  convert from
  |%
  ++  noun  dill-blit                                       ::  clam from %noun
  --
++  grow
  |%
  ++  json
    ^-  ^json
    ?+  -.dib  ~|(unsupported-blit/-.dib !!)
      %mor  [%a (turn p.dib |=(a=dill-blit json(dib a)))]
      %hop  (joba %hop (jone p.dib))
      ?(%pro %out)  (joba -.dib (jape (tufa p.dib)))
      ?(%bel %clr)  (joba %act %s -.dib)
    ==
  --
--