--- a/list.rhope	Fri Nov 05 02:42:18 2010 +0000
+++ b/list.rhope	Fri Nov 05 02:42:45 2010 +0000
@@ -326,6 +326,26 @@
 	}	
 }
 
+_String Seq[text,val,key:out]
+{
+	out <- [text]Append[ [[["\n\t"]Append[String[key]]]Append[":\t"]]Append[ [[String[val]]Split["\n"]]Join["\t\n"] ] ]
+}
+
+String@List Leaf[list:out]
+{
+	If[[[list]Buffer >>]Length]
+	{
+		out <- Fold[_String Seq[?], "List", list]
+	}{
+		out <- "List\n\t{Empty}"
+	}
+}
+
+String@List[list:out]
+{
+	out <- Fold[_String Seq[?], "List", list]
+}
+
 Print@List[list:out]
 {
 	Print["List"]