#{

	quote <- :str {
		"\"" . str . "\"" 
	}

	evalRequest <- :_id args {
		#{
			id <- _id
			string <- {
//				idStr <- id// method not implemented
//				idStr <- _id//method not implemented
// 				idStr <- "a"//good
//				idStr <- quote("id") . quote(id)//segfault
//				idStr <- "\"id\":\"" . id . "\""// method not implemented
//				argsStr <- ""//arguments fold: "" with: :acc el {acc . el}
				argsStr <- "b"
				"{" . idStr . "," . argsStr . "}"
			}
		}
	}

	guessRequest <- :id :prog {
		#{
			string <- {
				idStr <- "\"id\":\"" . id . "\""
				progStr <- "\"program\":\"" . prog . "\""
				"{" . idStr . "," . progStr . "}"
			}
		}
	}

	main <- {
		print: ((evalRequest: #[1 2 3]) string) . "\n"
		print: ((guessRequest: "someId" "someProg") string) . "\n"
	}
}