|%
+$  effect   (pair bone syscall)
+$  syscall  [%wait path @da]
--
|_  [bowl:gall msg=tape]
++  poke-noun
  |=  t=@da
  ^+  [*(list effect) +>.$]
  :_  +>.$(msg "{<t>}")  :_  ~
  [ost %wait /reminder t]
++  wake
  |=  [w=wire error=(unit tang)]
  ^+  [*(list effect) +>.$]
  ~&  "Reminder went off! {msg}"
  [~ +>.$]
--