::
::::  /hoon/time/app
  ::
/?    310
/+  old-zuse
=,  old-zuse
|%
++  card  {$wait wire @da}
--
|_  {bowl $~}
++  poke-noun
  |=  *
  :_  +>.$  :_  ~
  [ost %wait /(scot %da now) +(now)]
::
++  wake
  |=  {wir/wire $~}
  ?>  ?=({@ $~} wir)
  ~&  [%took `@dr`(sub now (slav %da i.wir))]
  [~ +>.$]
--