::  generate secret for starting a ship XX |ticket in cc-release
::
::::  /hoon/ticket/gen
  ::
/?    310
::
::::
  !.
:-  %say
|=  $:  {now/@da eny/@uvJ bec/beak}
        {{her/@p $~} $~}
    ==
:-  %noun
~_  leaf+"can't ticket {<her>} (not a child of {<p.bec>})"
?>  =(p.bec (sein:title her))
.^(@p /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p her))