::
::::  /hoon/balance/womb/gen
  ::
/?    310
/+    womb
:-  %say
|=  $:  {now/@da eny/@uvI bec/beak}
        {pas/@pG $~}
        who/(unit @p)
    ==
=-  [%womb-balance .^(balance:womb %gx /[him]/hood/[cas]/womb/balance/[key])]
[him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now) key=(scot %p pas)]