::
::::  /hoon/blit/dill/mar
  ::
/?    310
/-    sole
/+    old-zuse
=,  sole
=,  old-zuse
|_  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)
    ==
  --
--