--- a/modules/json.tp	Fri Jul 18 20:45:50 2014 -0700
+++ b/modules/json.tp	Sat Jul 19 19:59:51 2014 -0700
@@ -163,5 +163,35 @@
 		decode <- :text {
 			(_decode: text at: 0) value
 		}
+
+		encode <- :value {
+			if: (object does: value understand?: "jsonEncode") {
+				value jsonEncode
+			} else: {
+				toEncode <- #[]
+				if: (object does: value understand?: "serializeFields") {
+					toEncode <- value serializeFields
+				} else: {
+					toEncode <- object propertiesOf: value
+				}
+				parts <- #[]
+				foreach: toEncode :idx field {
+					fieldVal <- object sendMessage: field to: value
+					parts append: (field jsonEncode) . ":" . (encode: fieldVal)
+				}
+				"{" . (parts join: ",") . "}"
+			}
+		}
+
+		main <- {
+			o <- #{
+				foo <- "bar"
+				baz <- ["fizz" "buzz" "buzzzz"]
+				qux <- ((dict hash) set: "fo" "shizzle") set: "my" "nizzle"
+				arr <- #["pirate" "booty"]
+			}
+			print: (encode: o) . "\n"
+			0
+		}
 	}
 }