::  naive state
::
/-  *dice
/+  naive
::
|_  snap=snap-state
++  grab
  |%
  ++  noun  snap-state
  ++  mime
    |=  [mite =octs]
    (noun (cue q.octs))
  --
::
++  grow
  |%
  ++  mime
    [/application/x-naive (as-octs:mimes:html (jam snap))]
  --
++  grad  %mime
--