From a60690a3478566249ff0f69a5dea37aba008be41 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Thu, 2 Jul 2015 15:29:28 -0700
Subject: [PATCH] Initial commit of memory-bug.

---
 cat/liquid.hoon  | 34 ++++++++++++++++++++++++++++++++++
 cat/ooblick.hoon | 34 ++++++++++++++++++++++++++++++++++
 2 files changed, 68 insertions(+)
 create mode 100644 cat/liquid.hoon
 create mode 100644 cat/ooblick.hoon

diff --git a/cat/liquid.hoon b/cat/liquid.hoon
new file mode 100644
index 0000000000..cca12a12fa
--- /dev/null
+++ b/cat/liquid.hoon
@@ -0,0 +1,34 @@
+::
+::::  /hoon/solid/cat
+  ::
+/?  314
+::
+::::
+  !:
+|=  $:  [now=@da eny=@uvI bec=beak]
+        [~ ~]
+    ==
+:-  %noun
+=+  top=`path`/(scot %p p.bec)/home/(scot %da now)/arvo
+=+  pax=`path`(weld top `path`[%hoon ~])
+~&  %solid-start
+=+  gen=(reck pax)
+~&  %solid-parsed
+=+  ken=q:(~(mint ut %noun) %noun gen)
+~&  %solid-compiled
+:-  ken
+=+  all=.*(0 ken)
+=+  ^=  vay  ^-  (list ,[p=@tas q=@tas])
+    :~  [%$ %zuse]
+        [%g %gall]
+        ::  [%f %ford]
+    ==
+|-  ^+  all
+?~  vay  all
+=+  pax=(weld top `path`[q.i.vay ~])
+=+  txt=((hard ,@) .^(%cx (weld pax `path`[%hoon ~])))
+=+  sam=[now `ovum`[[%gold ~] [%veer p.i.vay pax txt]]]
+~&  [%solid-veer i.vay]
+=+  gat=.*(all .*(all [0 42]))
+=+  nex=+:.*([-.gat [sam +>.gat]] -.gat)
+$(vay t.vay, all nex)
diff --git a/cat/ooblick.hoon b/cat/ooblick.hoon
new file mode 100644
index 0000000000..a00e985e18
--- /dev/null
+++ b/cat/ooblick.hoon
@@ -0,0 +1,34 @@
+::
+::::  /hoon/solid/cat
+  ::
+/?  314
+::
+::::
+  !:
+|=  $:  [now=@da eny=@uvI bec=beak]
+        [~ ~]
+    ==
+:-  %noun
+=+  top=`path`/(scot %p p.bec)/home/(scot %da now)/arvo
+=+  pax=`path`(weld top `path`[%hoon ~])
+~&  %solid-start
+=+  gen=(reck pax)
+~&  %solid-parsed
+=+  ken=q:(~(mint ut %noun) %noun gen)
+~&  %solid-compiled
+:-  ken
+=+  all=.*(0 ken)
+=+  ^=  vay  ^-  (list ,[p=@tas q=@tas])
+    :~  [%$ %zuse]
+        [%g %gall]
+        [%f %ford]
+    ==
+|-  ^+  all
+?~  vay  all
+=+  pax=(weld top `path`[q.i.vay ~])
+=+  txt=((hard ,@) .^(%cx (weld pax `path`[%hoon ~])))
+=+  sam=[now `ovum`[[%gold ~] [%veer p.i.vay pax txt]]]
+~&  [%solid-veer i.vay]
+=+  gat=.*(all .*(all [0 42]))
+=+  nex=+:.*([-.gat [sam +>.gat]] -.gat)
+$(vay t.vay, all nex)