::
::::  /hoon#ticket#gen
  ::
/?  314
::
::::
  !:
:-  %say
|=  $:  {now/@da eny/@uvI bec/beak}
        [$~ $~]
    ==
:-  %noun
?>  =(1 (met 5 p.bec))
=+  mon=(mix (lsh 5 1 (end 5 1 eny)) p.bec)
=+  tic=((hard @p) .^(/a#(scot %p p.bec)/tick#(scot %da now)/(scot %p mon)))
"moon: {<`@p`mon>}; ticket: {<tic>}"