From 5c99c146a33cfefecfcfdf768d2498013dfdf246 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Mon, 2 Dec 2013 17:47:56 -0800
Subject: [PATCH] Type printing.

---
 main/bin/type.hoon | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 main/bin/type.hoon

diff --git a/main/bin/type.hoon b/main/bin/type.hoon
new file mode 100644
index 000000000..beae58f38
--- /dev/null
+++ b/main/bin/type.hoon
@@ -0,0 +1,20 @@
+!:
+::  /=main=/bin/type/hoon
+::
+|=  *
+|=  ~
+:-  ~  :-  ~
+:-  ^-  (list slip)
+    :~  [~ %$ %noun]
+    ==
+|=  [now=@da pax=path nut=note]
+^-  bowl
+:_  ~
+?+    -.nut  !!
+    %$
+  ?~  p.nut  
+    ~
+  %+  weld
+    (turn q.u.p.nut |=(a=* [%la (sell p.u.p.nut a)]))
+  `(list gift)`[[%la (skol p.u.p.nut)] ~]
+==