/?  310
::
::  models
::
|%
+=  move  (pair bone card)
+=  card  [%wait wire p=@da]
--
::
::  main app door
|_  [bol=bowl:gall ~]
++  poke-reminder
  |=  [delta=@dr message=@t]
  ^-  [(list move) _+>]
  ::
  =/  target  `@da`(add now.bol delta)
  =/  wir  /[message]/[(scot %da target)]
  [[ost.bol %wait wir target]~ +>.$]
::
++  wake
  |=  [wir=wire ~]
  ^-  [(list move) _+>]
  ::
  ~&  reminder+wir
  [~ +>.$]
--