From bacc213671cc6664092210540b51bc15cc1b4703 Mon Sep 17 00:00:00 2001
From: Dan Haffey <dhaffey@gmail.com>
Date: Sun, 24 Jul 2016 18:02:52 -0700
Subject: [PATCH] :time app, measures time between poke and subsequent wakeup

---
 app/time.hoon | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 app/time.hoon

diff --git a/app/time.hoon b/app/time.hoon
new file mode 100644
index 0000000000..e99bffc35c
--- /dev/null
+++ b/app/time.hoon
@@ -0,0 +1,19 @@
+::
+::::  /hoon/time/app
+  ::
+/?    310
+|%
+++  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))]
+  [~ +>.$]
+--