diff --git a/pkg/arvo/gen/story-list.hoon b/pkg/arvo/gen/story-list.hoon
new file mode 100644
index 000000000..0bb02ca4c
--- /dev/null
+++ b/pkg/arvo/gen/story-list.hoon
@@ -0,0 +1,18 @@
+::
+::::
+  ::
+:-  %say
+|=  $:  [now=@da eny=@uvJ bec=beak]
+        [[syd=desk ~] ~]
+    ==
+::
+::  List all commit messages for the given desk
+::
+=/  our  p.bec
+=/  story=(map tako:clay [@t @t])  
+  .^((map tako:clay [@t @t]) %cx /(scot %p our)/[syd]/(scot %da now)/story)
+=/  story-to-mime  .^($-((map tako:clay [@t @t]) mime) %cf /(scot %p our)/[syd]/(scot %da now)/story/mime)
+=/  story-mime   (story-to-mime story)
+=/  story-text  `@t`q.q.story-mime
+:-  %tang
+[story-text ~]
\ No newline at end of file