--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/json.tp	Tue Aug 13 22:01:00 2013 -0700
@@ -0,0 +1,12 @@
+#{
+	main <- {
+		arr <- json decode: "[\"foo\",  \"bar\", 13245, \"baz\"   ]"
+		foreach: arr :idx val {
+			print: (string: idx) . ": " . (string: val) . "\n"
+		}
+		obj <- json decode: "{\"foo\":    \"bar\",  \"baz\": \"qux\", \"meaningOfLife\": 42   }"
+		foreach: obj :idx val {
+			print: (string: idx) . ": " . (string: val) . "\n"
+		}
+	}
+}