--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/requests.tp	Fri Aug 09 04:17:27 2013 -0700
@@ -0,0 +1,28 @@
+#{
+	evalRequest <- :args {
+		#{
+			id <- "a"
+			arguments <- args
+			string <- {
+				temp <- ""//arguments fold: "" with: :acc el {acc . el}
+				"id" . id . "arguments" . temp
+			}
+		}
+	}
+
+	guessRequest <- :id :prog {
+		#{
+			string <- {
+				//remove the second escaped quote, it will compile.
+				idStr <- "\"id\"" //;\"" . id . "\""
+				progStr <- "b" // "\"program\":\"" . prog . "\""
+				idStr . progStr
+			}
+		}
+	}
+
+	main <- {
+		//print: ((evalRequest: #[1 2 3]) string)
+		print: ((guessRequest: "someId" "someProg") string) . "\n"
+	}
+}