A baby pill -- no jets required

baby.hoon

!.
=>  ~
=/  core
  !=
  =>  ~  =>
  |%
  +$  card  (cask)
  ++  cask  |$  [a]  (pair mark a)
  +$  knot  @ta
  ++  list  |$  [item]  $@(~ [i=item t=(list item)])
  +$  mark  @tas
  +$  ovum  [=wire =card]
  ++  pair  |$  [head tail]  [p=head q=tail]
  +$  path  (list knot)
  +$  wire  path
  --  =>
  ::
  |%
  ++  load  !!
  ++  peek  _~
  ++  wish  !!
  ++  poke
    |=  [now=@da ovo=ovum]
    ^-  ^
    ~>  %slog.[0 'got']
    ~>  %slog.[0 -.card.ovo]
    [~ ..poke]
  --
  ::
  |=  [now=@da ovo=ovum]
  ^-  *
  .(+> +:(poke now ovo))
::
|%
++  aeon
  ^-  *
  =>  *[arvo=* epic=*]
  !=
  |-  ^-  *
  ?@  epic  arvo
  %=  $
    epic  +.epic
    arvo  
      ~>  %slog.[0 'get 1']
      =/  res  .*([arvo -.epic] [%9 2 %10 [6 %0 3] %0 2])
      ~>  %slog.[0 'get 2']
      res
  ==
--
[%pill %baby [aeon .*(0 core) ~] ~ ~]